

APPLE SE DECHAINE: 
LE MACINTOSH 



Depuis I'appantion de I'APPLE II. en 
passant par I'APPLE III, APPLE lie. 
LISA et le concept souns, les pro- 
duits APPLE se son! forges une repu- 
tation mentee de qualite et defiabili- 
ie L'mnovation semblant devemrun 
de ses soucis majeurs. (Nenous plai- 
gnons pas), la societe APPLE persis- 
teet signe avec le MACINTOSH et les 
irois nouveaux LISA 
Avec le rythme de production dun 
MACINTOSH toutesles 27 secondes 
et au vu de son prix et de ses qualites. 
leBIGMACva-t-ilsubmergerlemar 
che? 

Quoiqu il en soit. le jour meme de sa 
naissance, le MACINTOSH est deja 
nabille plus de 200 logiciels realises 
ou en cours de realisation • 



MATERIEL 

Meme en version standard, le syste- 
me devrait salistaire les plus exi- 
geants 

192 K octets de memoire centrale. 
dont 12S K de memoire vive (RAM) et 
64 K de memoire morte (ROM) con- 
tenant lesyslemed'exploitation, une 
bibliothequede programmes graphi- 
ques et une "bofte a outils" pour pro- 
grammers 

Lecran mtegre de 23 cm possede 
une resolution de 512 x 342 points 
adressables mdividuellement (BIT- 
MAPPED) LeclavierAZERTYaccen- 
tue conlient un microprocesseur 
dont le logiciel supporte un jeu de 
217 caracteres MACINTOSH est un 
systeme ouvert conlenant six inter- 
faces mtegrees un bus serie (cla- 
vier), I'mtertace souns, un connec- 
teurdemicro-disquetteexterne.une 
sortie AUDIO polyphonique et deux 
interlaces serie RS 422/RS 232 C. 
Signalons aussi I'norloge/calendrier 
integree. un clavier numenquesepa- 
re (optionnel) et meme une potgnee 
pour le transport, une chafne de se- 
cunte (antivol) et un sac en nylon (le 
sac a dos pour les vacances n'est pas 



'. HIT 



LECONTENUDESROM 
On peut se demander pourquoi MA- 
CINTOSH est equipedautantde me- 
moire mode Enfait,les64Kmtegres 
dans les ROM de la carte digitale 
contiennent un ensemble de routi- 
nes de base que ion peut considerer 
comme des utilitaires. En plus du 
systeme d'exploitation assurani la 
gestion de la memoireet desfichiers 
on y trouve les routines graphiques 
QUICKDRAW et un TOOLBOX (boile 
a outils) qui simplifie, pour les pro- 
grammers, la creation et la presen- 
tation des programmes Linteret est 
certain gam de temps pendant le 
developpement. gain d'espace 
memoire. execution plus rapide (de 
lordre de 20%) et surtout coherence 
au niveau de ('interface utilisateur 
Les routines graphiques de QUICK 
DRAW occupen: un tiers de la ROM 
et permettent, entre autres. de sau- 
vegarder une sequence dapper de 
routines realisant un certain dessin 
sous forme de picture et utitisable 
par d'autres applications La boite a 



outils occupe. elle aussi. un tiers de la 
ROM et reunit un ensemble d'utih 
taires dont un editeur de texte. une 
creation et gestion de fenetres. une 
gestion de menus Un des utilitaires 
particulierement interessant est le 
gestionnaire de ressources. qui 
propose de separer le texte el les 
donnees du code executable [dans 
lefichierobjet). cequi facilite I'adap- 
tation du logiciel On peut traduire le 
lexte. par exemple. sans toucher la 
logique du programme 



EXTENSIONS ET COMPATIBILITE 
MACINTOSH rompt avec la tradition 
des "SLOTS" pour carte d'extension 
enfichable II dispose par contra, de 
trois connecteurs d'extension situes 
sur le panneau arnere : un connec- 
teur de raccordement a un second 
lecteurde micro disquetle (3 pouces 
1/2. 400K)et deux connecteurs d*en- 
tree/sortie aux normes RS 422/RS 
232C assurant le raccordement a 
des peripheriques divers (modem, 
impnmante, disques durs, reseaux 
locaux, etc.). 

Ces deux derniers connecteurs sont 
des canaux agrande vitesse (jusqu'a 
1 M bauds) entierement programma- 
bles La compatibilite logicielle est 
garantie par le langage PASCAL. 
commun a tous les ordinateurs de la 
gamme APPLE 

La connexion du MACINTOSH a un 
APPLE lie. APPLE III. ou LISA, est rea- 
lisable soil par liaison directe (cable 
relie aux ports serie) a I'aide du logi- 
ciel MACTERMINAL, soil par le syste- 
me APPLE BUS qui constitue le re- 
seau local d'APPLE 
MAC TERMINAL permet aussi. lors- 
qu'il est associe a un convertisseur 
de protocole, la connexion en liaison 
synchrone selon les protocoles IBM 
3270BSCetSNA/SDCC 
Parmi les peripheriques en cours de 
developpement, on trouve un disque 
dur 10 Mo avec cartouche, un interla- 
ce IEEE-488. etc 





II est possible d inclure dans un pro- 
gramme en LISA PASCAL du code en 
assembleur 68000 et d'acceder aux 
routines dans la ROM Ces routines 
peuvent etre considerees comme un 
ensemble de 480 instructions ^om- 
plementaires. 

MACINTOSH_PASCAL est un PAS- 
CAL mterprete et interacts II auton- 
se la mise au point symbolique et in- 
teractive del'acces aux routines gra- 
phiques de la ROM Une deses parti- 
culates est de disposer de deux 
fenetres separees une pour le pro- 
gramme-source. I'aulre pour leresul- 
tat de lexecution du programme 
MACINTOSH BASIC est un BASIC 
mterprele. disposant destructions 
facilitant la programmation structu- 
re Comme le PASCAL, ce BASIC 
utilise deux fenetres et permet une 
mise au point symbolique et interac- 
tive 

ASSEMBLEUR/SYSTEME DE_MISE 
A U POINT Outilde developpement, 
il contient un assembleur. un macro- 
assembler, un editeur de program- 
me et des outils de mise au point. 
Toutes les routines de la ROM sont 
accessibles par son intermediate 
LOGO est egalement disponible 
PROLOG, langage peu connu tres 
adapt e aux domaines de Intelligen- 
ce artificielle et de la CAO, devrait 
I'etre prochainement 



LES LOGICIELS 

MACPAINT Utilisable avec la souns. 
il permet de dessmer ou d'ecnre sur 
lecran a I'aide de fonctions mte- 
grees Quelques caracleristiques 
leHet de coupe, formes et decors 
predefmis, miroirs de dessins. etc .) 
en font un logiciel particulierement 
performant Couple avec MACWRI- 
TE, il permet d'agrementerdu TEXTE 
par tansfert de dessins. 
MAC WRITE MAC WRITE est un trai- 
tementde TEXTE accessible parme- 



nu ou par la souns Independam- 
ment des fonctions classiques d'un 
traitement de texte. il est possible, a 
tout moment, d'utihser les accessoi- 
res de bureau (carnet. calculatrice. 
presse-papiers. etc ..) et d'acceder 
au jeu de 217 caracteres, avec modi 
ficationdelatypographieetdelatail 
le des caracteres. 
MAC DRAW C'est le logiciel mtegre 
situe en POM et facilitant la realisa 
tiondu graphisme 
PFS FILE:estunsystemedeclasse 
ment de I'mformation, de SOFTWA 
RE PUBLISHING CORPORATION 
MULTIPLAN de MICROSOFT, est 
une feuille de calcul de 63 colonnes 
sur 255 lignes. 

MULTiCHART de MICROSOFT, est 
un outil de representation graphique 
de donnees (Histogrammes. gra- 
phes etc ) 

Un des points fort de MACINTOSH 
est le logiciel "FINDER", qui offre a 
I'utilisateur une representation elec- 
tronique de bureau sur lequel il tra- 
vaille. En fait, il gere les documents 
en memoire centrale et sur disque. II 
permet de mettre des documents 
dans des dossiers, de transferer de 
I'information, de realiser des copies 
de documents. 

II est possible aussi de manipuler des 
accessoires de bureau meme en 
cours de travail sur une autre appli- 
cation 

Parmi les accessoires, on trouve une 
horloge, une calculatrice. utile pour 
de petits calculs. un calepin (carnet 
de note de 8 pages), un Presse-pa- 
piers. comme sur LISA pour memon- 
ser une information (Texte. dessin.) 
et un album permettant de memori- 
ser plusieurs informations 

QUELQUES POINTS D'lNTERROGA- 

T10NS 

On peut constatera la lecture de la fi- 

che technique labsence de certai- 

nes peripheriques ou extensions. 



APPLE estime que dans le domame 
des peripheriques. la lendance va 
vers les peripheriques connectables 
sur une interface serie 
APPLE n'apas prevu d'autre systeme 
d exploitation que celut de MACIN- 
TOSH, qui utilise au maximum les ca- 
pacites du materiel MACINTOSH 
peut etre utilise comme postede tra- 
vail connecte a un LISA fonctionnant 
sous XENIX ou un derive d'UNIX 

APPLE VERS UN FAMILLE NOM- 
BREUSE 

APPLE annonce en meme temps que 
MACINTOSH, le nouveau LISA (LISA 
2). disponible en trots versions LISA 
2, LISA 2/5, LISA 2/10 Ces 4 nou- 
veautes constituent la lamille 32 bits 
d APPLE 

Les logiciels MACINTOSH lournent 
sur LISA 2 et beneticient des avanta- 
ges de la gamme LISA (512 K de me- 
moire disque Dur 5 et 10 Mo), 1'inver- 
se n'etant pas vrai . MACINTOSH ne 
dispose pas en general, d'un espace 
memoire suHisant. Suite page , 2 



EDITO 



Cette semaine, encore des informa- 
tions exclusives, et pas surn'importe 
quel materiel un nouvel APPLE, pro- 
bablement I'ordinateur de I'annee. 
encore que I'annee qui commence 
nous reserve pas mal de surprises 
D'ailleurs ne manquez pas I'Hebdo 
de la semaine prochaine.vousy trou- 
verez un autre ordinateur. d'une au- 
tre marque au moins aussi connue 

Celte semaine les possesseurs de 
GOUPIL et de SPECTRUM recoivent 
la juste recompense de leurs efforts 
de programmation GOUPIL nous 
quitte pour un mois ! et SPECTRUM 
revientapres un mois d'absence Le 
SHARPMZ 700 1'a d'ailleurs echappe 
de justesse. A vos claviers, bande de 
faineants ! 



MACINTOSH EST POLYGLOTTL 
LISA PASCAL : est un PASCAL com- 
pile en code natif 68000 (par I'mter- 
mediatre du P-Code) II est done par- 
ticulierement rapide 



LES CONCOURS PERMANENTS : 

10 000 francs de prix au meilleur programme CHAQUE MOIS. 
1 voyage en Califomie pour le meilleur logiciel CHAQUE TRI- 
MESTRE (Reglement en page interieure) 
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LE DONJON DE LA MORT 




Un mfichant sorcier, stranger a votre pays, s'est installe dans un vieux 
donjon a deux stages de votre region. Sa magie est si puissante qu'il a 
pratiquementprislecontrolede tout le donjon, bien que celui-ci ait ete 
construit par des sorciers dont la magie etait diametralement opposee 
a celle du sorcier. II a aussi kidnappe la filie de votre Rol et la tient a pre- 
sent prisonniere dans cememe donjon. LeRoi a promis la main desafil- 
le a I'homme qui la sauverait et debarrasserait le pays du Sorcier. Ce- 
pendant plusieurs aventuriers ont deja essays et 6choue Et leurs tre- 
sors et pouvoirs magiques qu'ils avaient emporte ont disparu avec eux 
Le Roia perdu non seulement sa fille mais aussi tous ses tresors et pou- 
voirs magiques, sauf quatre. qu'il vous donne dans un dernier effort 
pour lui ramener sa Princesse, Seuls ces pouvoirs et votre propre epee 
magique peuvent vous aider mamtenant dans la tfiche que vousaveza 
accomptir. 

Dans le Donjon, la cellule de la Princesse et I'antre du sorcier se trou- 
vent tout deux a I'etage interieur, cela. on le sait On sail aussi que les 
trois cles, abandonnees a i'etage superieur par un esprit bienveillant, 
sont mdispensables au sauveteur s'il desire achever sa tache ; la pre- 
miere de ces cles est destinee aux escaliers qui conduisent au deuxie- 
me etage (bien que le Sorcier ait jete un sort sur les escaliers, de facon 
que Ton ne puisse pas les utiliser pour retourner au premier etage une 
fois que Ton est au second). La deuxieme cle sert a ouvrir la porte de la 
cellule de la Princesse, et la troisieme a ouvrir Tantre du Sorcier. Le Sor- 
cier est assez arrogant pour croire que tous ses pieges et toutes ses 
trappes qu'il a disposes tout autour du Donjon sont suffisants contre 
n'importe quel aventurier. sa fidele troupe de kobolds et ses orques se 
chargeant du reste Par consequent, le Sorcier vous consid6rera 
comme une menace, et sortira pour vous faire face si la main de la Prin- 
cesse ouvre sa porte (sinon sa piece semble tout a fait ordinaire) Cela 
signifie deux choses , il est possible de passer par le repaire du Sorcier 
sans mSme s'en apercevoir, et la Pnncesse doit £tre delivree avant que 
le Sorcier ne soil decouvert et tue 

Pour vous aider a trouver ces cles, I'epee que vous porterez brillera 
quand elle pointera vers la piece contenant la premiere cle. et la cle 
elle-meme une fois trouvee. vous conduira a la deuxieme etainside sui- 
te jusqu'a la troisieme. 

La Tine couche de poussiere recouvrant le sol vous cachera la cle a 
moins que cene soit celle a trouver. Lesprit qui a place les cles est assez 
fort pour etre surqu'aucun des habitants du Donjon ne puisse vraiment 
penetrer dans une piece contenant I'une de ces cles (y compris le Sor- 
cier, qui a tendance a s'enfermer au second etage ou il s'evertue a har- 
nacher le pouvoir des anneaux des vieux sorciers) 
Une fois trouvees les trois cles, vous rites prgt a continuer vers I'etage 
du bas. Pour ce faire. vous devez trouver les escaliers qui sont situes 
sous une trappe ; camouflee par la poussiere, ce qui fait qu'il est prati- 
quement impossible de les decouvrir normalement. (N'oubliez pas que 
la seule lumiere qui puisse vous aider est celle de votre epee.; Mais le 
trou de la serrure de la trappe brille en accord avec la troisieme cle (la 
derniere a trouver, celle qui vous mene aux escaliers) C'est la un des 
nombreux secrets du jeu ; a vousde trouver le moyen dedescendre les 
escaliers. 

Lorsque vous serez au deuxieme etage. vous pourrez entendre les san- 
glots de la Princesse dans sa cellule et cela vous guidera vers elle. Elle 
connait la position de la piece du Sorcier et peut vous y conduire. Mais il 
est une chose que seul le Sorcier connait , c'est la position de la sortie 
du Donjon que vous devez decouvrir, mais lui ne vous la dira pas. 
Et si tout cela nest pas assez terrible, voici autre chose que vous devez 
savoir ; la duree du jeu est limitee (la duree du jeu, pas le temps reel) 
Ceci car le Sorcier. essayant de dejouer les Influences des esprits des 
vieux sorciers a jete un sort sur le Donjon entier et cela (ait que tout 
ceux qui entrent sans le consentement du Sorcier sont maudits Cette 
malediction se traduit en deux etapes , apres quatre heures passees 
dans le Donjon, une malediction plane sur I'aventurier. quoique ellesoit 
supportable par le joueur grace a sa propre magie. Mais au bout de six 
heures, si le joueur se trouve encore a I'interieur du Donjon, alors la ma- 
lediction le tuera (pour etre plus precis, le joueur sera transforms en un 
de ces etres surnaturels. condamnes a errer dans les couloirs du Don- 
jon pourl'eternite Est-iletonnant que les gens du pays en soient arrives 



a considerer cet endroit comme le Donjon de la Mont ? Notez aussi que 
puisque la malediction est propre au Donjon, elle restera en jeu m§me 
si le Sorcier est mort 

Les possibility d'action sont pour vous les suivantes i - essayer une 
porte. - engager un combat - ramasser un objet/ouvrir un coffre -jeter 
un son et dresser 1'inventaire Celle-ci sont assimllees a la rangee de 
touches du haut de la machine (respectivement marquees de A a E). 
Quand vous desirez employer une de ces possibilites d'action, ap- 
puyezsimplement sur la louche correspondent a cette action. Nevous 
inquletez pas si vous appuyez sur un bouton el que I'operation deman- 
dee soit denuee de sens, comme attaquer un coffre ou ramasser un ko- 
bold. Loperation est refusee et vous serez sollicite une nouvelle fois 
Appuyer sur la touche A entratnera la question : CHEMIN ? La direction 
choisie sera introduite grUce a la moitie nume>ique du clavier. Les di- 
rections possibles sont : Nord-presserS , Sud-presser 2 ; Est-presser 6 
et Ouest-presser4. Notez que les touches choisies correspondent aux 
directions qu'elles representent dans le jeu. Les autres nombres s'ils 
sont introduitsseront ignores. Notez aussi que le programme nes'arre- 
te pas la, mais enchaine indefiniment, attendant I'introduction de nu- 
meros (0 a 9. CHS. EEX...}. Au premier tour de jeu, il est normal que plu- 
sieurs pressions soient necessaires pour que la HPenregistre le nume- 
ro. Si vous appuyez sur un chiffre non valide. ou une touche autre, le 
programme peut etreinterrompu ;il vous suffitdepresserR/S pour que 
tout rentre dans I'ordre. 

Le programme accepte que si une porte est fermee a cle, vous puissiez 
essayer les cles que vous possedez pour voir si elles s'adaptent. Si vous 
trouvez une porte fermee a cle. inutile de faire plusieurs essaisa la suite 
pour la franchir, essayez-en plut6t une autre. Aux llmites du Donjon, si 
vous tentez de prendre une direction qui vousferait passer a travers les 
murs, vous aurezle message :MUR...,etresterez dans la mfime piece.,. 
Notez que chaque piece a une porte dans chacun de ses murs. Si vous 
vous trouvez seul dans une piece, le fait que vous trouviez une porte ter- 
med a cl6ou un mur ne vous apportera rien de nouveau, qu'une nouvel- 
le interrogation (sauf s'il s'agit d'une piece avec une trappe auquel cas 
Taction pourra rebondir). Si. au contraire, il y a quelqu'un d'autre avec 
vous dans la piece, alors cet etre vous attaquera. Notez que si vous es- 
sayezd'echapper a cette creature et que vous ne reussissiez pas a quit- 
ter la piece, vous perdez alors le premier avantage. Si vous pen6trez 
dans la piece voisine, le message suivant apparaitra : "TU VOIS". Apres 
une ou deux secondes. tout ce qui se trouve dans la piece vous sera 
communique. On pourra trouver : "TU VOIS" "UNE TRAPPE" ou "TU 
VOIS""LE SORCIER". Dans ces deux cas. si vous n'agissez pas pendant 
que les messages sont affiches, la trappe s'ouvrlraoule Sorcier vous at- 
taquera. Dans les autres cas, le programme marque un temps d'arr£t 
avec la question ; "ALORS" qui indique que la suite depend de vous. 
Dans le cas d'une trappe, vous pouvez seulement vous enfulr en cou- 
rant - en appuyant sur A - ou lui jeter un sort - en pressant D -. 
Dans une piece, vous pouvez trouver I'objectif precedent ourencontrer 
une creature contre laquelle vous pouvez lutter. ou decouvrir un objet 
pouvant vous etre utile, ou ne rien trouver. 

Dans le cas d'une rencontre avec une creature, appuyer sur B entame- 
ra le combat entre vous deux. Vousavez le premier coup uniquement si 
vous commencez le combat. Les chances de reussite d'un premier 
coup sont d'environ 65% et ceci s'applique aux deux adversaires ; cela 
peut varier selon que vous soyez maudit (dans ce cas les choses vont 
contre vous) ou que vous portiez un anneau (dans ce cas les choses 
vous sont favorables). La force d'un coup est determinee dans chaque 
cas et pour chacun des combattants, grace a un classement de forces 
allant d'un ghoul - aucun dommages physiques - au dragon, qu> lui est 
sancjuinaire et plus ci : fficile at ler dans un combat au corps a corps En 
plus des dommages physiques que vous subissez et qui se repercutent 
sur votre nombre total rje points (vous mourrez si vous atteignezzero), 
quelques creatures apportenl des menaces supplementaires , les 
scorpions ont un dard venimeux et les dragons un souffle empoisonne. 
De plus toutes ces creatures surnaturelles sont capables de vous pa- 
ralyser momentanement. afin de vous frapper a nouveau avant que 
vous ne puissiez repliquer 
Chaque combat se deroule en un ou plusieurs tours pendant lesquels 



les protagonistes ont une chance dabattre ladversaire Chaque tour 
se termine par le message "ALORS ?" et une pause momentanee vous 
permet - de continuer le combat (ne nen faire), - de vous enfuir encou- 
rant (presserA. mais souvenezvous que les points d'experience se ga- 
gnent dans les combats et pas dans la relraitehonteuse). -de lancer un 
sort (presser D). - de lister 1'inventaire (presser E, mais vous perdez vos 
chances de gagner ce tour). - de presser C qui vous lait assurement 
perdre ce tour. 

Un combat s'acheve lorsque l'un des protagonistes est allonge, mort. Si 
vous gagnez. le nouveau total de vos points d'experience est affiche 
(vous gagnez les points de la creature abattue) et le message "AC- 
TION ?" reapparait. 

Lorsqu'ily a unobjet dans la piece (line vousattaquera pas!), vous pou- 
vez le prendre si vous le desirez. La plupart de ces choses ont ete ap- 
portees par les precedents et malheureux aventuriers, mais certains 
sont des pieges poses par le Sorcier. Dans ce cas, si vous les touchez. 
vous serez maudit de votre cupidite Une seule chose vous protegera 
de ces pieges en les "desensorcelant", c'est I'anneau magique Ces an- 
neaux ont ete forg6s par les vieux magiciens. il y a bien longtemps et ne 
peuvent etre atteint par le Sorcier ; il a vainement tenter d'alterer leurs 
pouvoirs et les a disperses dans le Donjon Un seul probleme ; depuis 
que le Sorcier est dans le Donjon, les anneaux sont devenus sensibles 
au toucher des murs ou du sol du Donjon, et si I'un touche I'autre. I'an- 
neau disparait instantanement afin de se proteger contre les esprits 
mauvais. Les anneaux sont done deposes dans des coffres. En pres- 
sant la touche C, vous ouvrirez les coffres (avant, eventuellement d'en 
prendre lecontenu). Mais mefiez-vous des spectres qui ydorment . Un 
anneau est porte des sa decouverte. Rappelez-vous qu'Stre paralyse 
pendant un combat peut faire glisser I'anneau de votre doigt. Si vous 
etes maudit et que vous trouviez un anneau, la malediction se dissipe- 
ra Et malgr6 toute cette magie, vous n'aurez que six heures de recher- 
che... 

Vous entrez dans le Donjon avec quatre sorts et vous devrez les utiliser 
tous pour gagner. Les sorts ont plusieurs desseins ; si vous etes dans 
une piece avec un piege. le sort tentera de detruire le piege ou la trap- 
pe Si vous rencontrez une creature, le sort pourra la detruire Si vous 
etes maudit, il vous delivrera de la malediction Pressez D pour lancer 
un sort. 

Si vous pressez la touche E, 1'inventaire est liste : vous saurez combien 
vous avez de points d'experience (XPS). de points de combat (PCS), de 
sorts, I'etage ou vous vous trouvez et la piece dans laquelle vous Stes. 
Chaque etage est un carre de 10 pieces par 10 pieces * soit 100 pie- 
ces!-. Vous commencez la partie dans la piece situee dans le coin sud- 
ouest, la piece 2 etant au nord. la piece 11 a Test, la piece 100 etantau 
coin nord-est. Al'affichage vous lirez : DS PIECE E ; pp ou E est I'etage et 
pp le nume ro de la piece Vous verrez egalement apparaitre le temps 
qu'il vous reste a jouer et normalement la direction dans laquelle se 
trouve I'objet a chercher. D'autres messages peuvent apparaitre de 
temps en temps Sachez que 1'inventaire prends du temps sur vos six 
heures et qu'il doit etre demande a bon escient. 
Enfin un petit bonus . on sait qu'un inestimable joyau. appele I'Ange 
Noir, a ete pose quelque part dans le Donjon ; trouvez-le afin d'augmen- 
ter vos points d'experience et peut-etre vous porter chance... 
Quelques details sur la mise en ceuvre... 

Le programme est tres long a taper. Mais sachez que vous y jouerez 
bien plus longtemps avant de vous en sortir... 319registresdem6moire 
sont n6cessaires done une HP 41CVou HP 41C + module quadri.Tapez 
le programme en SIZE (veillez a le reproduce exactement. il ne reste 
pas un octet dslibre). Lorsque enfin, il est entierement copie. faire SIZE 
1 1 et FIX 0. Veillez a chaque debut de partie a I'etat de vos drapeaux En 
effet, en fin de partie. certains sont leves Ci-joint le listing de I'etat des 
drapeaux en d6but de partie. 
Bonne chance, pauvres aventuriers ... 



HP 41 



Frederic DARIN 



2125 15.1 


. 43 2 


86 GTO 68 


129 XEO 93 


172 TONE 8 


215 X=6' 


258 5.5 


361 -FORC- 


344 -H10RT- 


387 ST* 84 


438 2 E2 


473 X>8' 


ei«LBL -z- 


44 1 


87 1 


136 X*r? 


173 PPOHPT 


216 ISG 85 


259 XEO 93 


362 5.3 


345 -13.4 


388 SF 11 


431 / 


474 GTO 15 


62 XE6 13 


45 INT 


88 ST- 81 


131 CTO 88 


174 CTO 63 


217 STt 84 


268 X»V 


363 RTN 


346 RTN 


389 CLX 


432 • 


475 XEO 83 


63 STO 69 


46 4 


89 GTO 81 


132 XEO 77 


175«L8L 


218 X«8' 


261 X=8' 


384«LBL 83 


3474L8L 87 


398 RTN 


433tLBL 88 


476 RCL 63 


84 1 


47 X<V 


98«LBL 83 


133 FS' 18 


176 CTO 


219 XEO 17 


262 .PSE 


365«LBL 12 


348 CLA 


391«LBL 13 


434 .65 


477 FRC 


85 STO 16 


48 GTO 16 


91 XEO 93 


134 GTO 62 


177»LBL B 


228 X=6' 


263 X=6' 


386 XEO 13 


349 SF 62 


392 55 


435 - 


478 18 


86 EREG 81 


49 XOV 


92 INT 


135 BEEP 


178 cm F 


221 XEO 18 


264 CTO 64 


387 RCL 89 


358 XEO 99 


393 ENTEPt 


436 XEO 88 


479 • 


6? CLE 


58 RCL 82 


93 9 


136 OVIEN 


I79«LBL 1 


222 CLX 


265 X«Y? 


388 XOY 


351 2.2 


394 1 E2 


437 X>6' 


488 ABS 


68 6.81 


51 XOV 


94 X=V 


137 FS' 66 


188 GTO 1 


223 STO 83 


266 CTO 65 


369 X=Y' 


352 * 


395 XEO 46 


438 XEO 84 


481 XEO 46 


89 ST8 88 


52 STO 82 


95 GTO 88 


138 CTC 62 


181«LBL E 


224 CTO 63 


267 RCL 81 


318 CTO 12 


353 5 


396 X«Y' 


439 X>6' 


4S2 1 


18 4 


53 x=r> 


96 1 


1W.I.EI i\ 


182 CTO E 


225»LBL 86 


268 X«V 


311 RCL 81 


354 XEO 45 


397 X=8' 


448 CTO 16 


483 XOY 


11 STO »5 


54 CHS 


97 STt 61 


146 XEO 13 


183«LBL C 


226 XEO 51 


269 GTO 88 


312 18 


355 RTN 


398 CTO 13 


441 XEO 83 


484 X>6' 


12 13 


55 X<6' 


98 CTO 61 


141 RCL 69 


184 XEO 92 


227 DEC 


278 * 


313 / 


356»LBL 88 


399 18 


442 RCL 86 


485 t 


13 STO 86 


56 CTO 88 


99»LBL 64 


142 X=V 


185 FS' 87 


228 -CONTIENT ■ 


271 FC 88 


314 INT 


357 SF 82 


486 / 


443 XEO 46 


486 ST- 86 


14 GTO E 


57 2 


166 RCt 81 


143 GTO 41 


186 GTO 48 


229 (1VIEN 


272 GTO 18 


315 16 


358 XEO 47 


461 RTN 


444 1 


487 RCL 86 


15»LBL n 


58 ENTEPt 


161 FRC 


144 XOY 


187 FS' 81 


238 TONE 4 


273 FC 83 


316 « 


359 XOY 


482«LBL 15 


445 t 


488 X<=6' 


16 XEO 92 


59 ENTEPt 


182 .9 


;i', STO 6? 


188 GTO 16 


231 6 


274 GTO I Nil /. 


317 * 


368 X=8' 


483 XEO 51 


446 ST- 87 


489 GTO 97 


17 XEO 51 


68 t 


183 X=V 


146 ISG 18 


189 XEO 51 


232 XEB 46 


275«LBL 85 


318 RCL 61 


361 X<Y' 


484 -ALORS' 


447 RCL 67 


498 RCL 83 


18 -CHEW" 


61 FSi 66 


184 GTO 88 


147»LBL 84 


196 FS? 42 


233 3 


276 9 


319 X=Y' 


362 GTO 68 


485 OVIEN 


448 X<=6' 


491 X>8' 


19 CF 22 


62 * 


165 .1 


148 -CHEPCNE 


• 191 CTO 86 


234 * 


277 XEO 46 


328 GTO 12 


363 -DES B10NONT' 


•466 TONE 4 


449 GTO 94 


492 GTO 66 


26 HVIEU 


63 FS' 64 


186 ST* 81 


149 XED 77 


192 FCC 82 


235 . 


278 RCL 81 


321 XOY 


364 35 


467 PSE 


458«LBL 14 


493 XEO 47 


21 TONE 3 


64 - 


167 CTO 61 


156 PVIEU 


193 CTO 63 


236 XEO INI! i 


279 18 


322 STO 61 


365 RTN 


468 GTO 88 


451tLBL 16 


494 XEO 67 


22«L8L 22 


65 08S 


188«LBL 88 


151 PSE 


194 FC 88 


237 X<8' 


286 / 


323 CLX 


3664LBL 68 


469»LBL 


452 FS' 87 


495 X<8' 


23 PSE 


66 XEO 9° 


189 -NUR. .." 


152 XEO 91 


195 FS' 84 


238 X=6' 


281 INT 


324 OVIEN 


367 -UN SORT- 


418 GTO A 


453 CTC 48 


496 CTO 62 


24 FCC 22 


67 » 


116 X<8' 


153 CTO 82 


196 GTO 81 


239 CTO 62 


282 X<8' 


325 OVIEN 


368 CLX 


411«LBL B 


454 RCL 8.3 


497«LBL 68 


25 CTO 22 


68 i 


111 -PORTE CLOSE 


■ 1544LBL 66 


197 XEO 47 


248 oviEt 


283 ISC V 


326 -FECLBIP 


389 RTN 


412 XEO 92 


455 FC 82 


498 FC 43 


26 DBS 


69 - 


112 OVIEN 


155 XEO 33 


198 X>8' 


241 CTO 14 


284 CLX 


327 RTN 


378«LBL 89 


413 FS' 87 


456 X=8' 


499 CTO 15 


27 ENTEM 


78 FC? 18 


113 TONE 1 


156«LBL 62 


199 CTO 81 


2421LBL 83 


285 CLX 


328«LBL 88 


371 XEO 47 


414 GTO 48 


457 CTO 63 


588 -POISON- 


28 VIEW * 


71 X<8? 


114 GTO 16 


157 STO 83 


268 RCL 83 


243 -hDU SABLE" 


286 -UN • 


329«L8L 84 


372 X<8' 


415 RCL 83 


458 FS' 61 


5811LBL 48 


29 2 


72 GTO 88 


U5»LBL e: 


158 BVIEU 


261 -TRESOP • 


244 RTN 


287 GTO INB V 


338 -RIEN..- 


373 GTO 18 


416 [NT 


459 CTO 88 


582 FS' 87 


36 KOI 


73 GTO INH 


62 116 XEO 51 


159 PSE 


262 X=6' 


245«LBL 85 


288«LBL 8! 


331 RTN 


374 "UNE TRAPPE- 


417 ABS 


468 INT 


563 "TRAPPE 


31 X»8? 


74«LBL 81 


117 CF 61 


166»LBL 82 


263 -PQRCHENIH 


■ 246 FS' 86 


289 "FSCOPPION 


- 332«LBL 85 


375 SF 87 


418 FC 62 


461 ABS 


BEBNTE- 


32 CTO 16 


75 PCL 81 


118 CF 82 


161 FS'C 11 


284 XEO 44 


247 CTO 68 


296 5.2 


333 -FCOFFRE- 


376 CLX 


419 X=8' 


462 STO 87 


564 AVIEU 


33 RUN 


76 FRC 


119 CF 85 


162 XEO 17 


285 SF 84 


248 "FUN ONNEfly 


291 ROD 


334 GRAB 


377 RTN 


428 GTO 63 


463 SF 81 


565 TONE 8 


34 X«8' 


77 X=6^ 


128 CF 66 


163»LBL 63 


286 TONE « 


249 SF 88 


292 RTN 


335 PTN 


378«LBL 18 


421 FC 61 


464tLBL 68 


566 RCL 86 


35 CTO 80 


78 GTO 86 


121 CF 67 


164 FC 61 


287 AVI EN 


258 CF 84 


293<L8L 82 


336»LBL 86 


379 -FBRACON- 


422 STO 87 


465 XEO 51 


587 5 


36 FCC 86 


79 .1 


122 DEC 


165 FS' 18 


268 CLX 


251 RTN 


294 XEO 47 


337 XEO 47 


388 25.9 


423 SF 61 


466 SF 85 


588 V. 


37 GTO 16 


86 ST- 81 


123 CLX 


166 GTO 16 


269 STO 83 


252«LBL 86 


295 X<=8' 


338 X<=6' 


381 ROD 


424«L6L 68 


467 XEO 99 


589 CHS 


38 18 


81 CTO 81 


124 STO 63 


167 FS' 87 


216 DSE 86 


253 "FUN SPECTRE 


- 296 GTO 82 


339 CTO 61 


382 RTN 


425 CF 65 


468 .65 


516 XEO 99 


39 ST» 81 


82«LBL 82 


125 -TU VOIS ■ 


168 CTO 48 


211 CTO 63 


254 -6.2 


297 -WOBOLIi- 


346 -FCHOUL- 


383»LBL 11 


426 XEO 99 


469 - 


511 t 


48 SF 11 


83 XE9 93 


126 nviEU 


169 XEO 99 


212 GTO 97 


255 STO 83 


298 9.4 


341 -4 


384 "L 8NCE NOIP 


427 FC 18 


478 XEO 87 


512 XEO 68 


41 CTO 71 


84 INT 


127 TONE 2 


176 CLST 


213«LBL 81 


256 RTN 


299 RTN 


342 RTN 


385 SF 83 


428 CTO 88 


471 X>6' 




42»LBL 88 


85 x=r? 


128 RCL 89 


171 -0CTI0N ' 


■ 214 RCL 83 


257«L8L 33 


388«L8L 82 


343«LBL 61 


386 75 


429 RCL 64 


472 XEO 84 


Suite page 3 



TOUR DE HANOI' 



Une bouffee d'exotisme pour le TRS 80. avec ces TOURS 
DE HANOI, a remettre a leur place. 

Lenaick LE NEZET 
Mode demploi 

- Charger le programme par ; CLOAD "H" 

- [.'execution du programme est lancee par RUN 

- Des compteurs de temps sont incorporesapresl'affichagedu litre du 
debut, des regies du jeu et du "au revoir" final. 

- II est necessaire. apres chaque reponse aux questions posees (Oui 
ou Non. nombre d'etages. tour de depart ou tour d'arrivee) d'appuyer 
sur la louche ENTER. 

- Pour les reponses par oui ou par non appuyer sur "O" ou "N" 
Materiel utilise : 

- TANDY TRS-80 modele l 
-Memoirede 16K0 

- Magnetophone (pour le chargement du programme en memoire. 
seulement) 



R»-STHING»i 26. CHR»< : 



PRINT3IZ*40>. 



i Z«Z.64 : 
-G ETAGES" 



90 CLEAR 5000 I DIM S* ' 6 I 

BB Pt=5TRING«< 1.CHR«I191>) I 0»-STRING«i 26. CHR»( 13! ) ) 
: Q1»-STRINGH63.CHR»< t3t >) I T»-"LES TOURS DE HANOI 

IB CLS : PRINT3339.0» : PRINT3471.T* 

2B PRINT3595. R» 

3B S«li)»" X " i S«r2)»- XXX " : B»l3>- 

XXXXX " ! S»f5>=" XXXXXXXXX " ! 5»(6J-"XXXX)(XXXXXX*' 

40 FDR X-l TO 600 : NEXT X 

45 REM +** PRESENTATION DU JEU *** 

58 CLS J PRINTOI* : PRINT387.T* : PRINT3147.0* 

60 Z-256 I PRINTsa*40),S*<l> I Z-Z+&. i PRINT3iZ»25) 
: Z«2*64 

70 FOR X-l TO 4 

SB PRINT3<Z*IB).S*cX J I PRINT31Z.25).S»< X«l) I PRINTSi Z*40) ■ S*<X*2> 
NEXT X 

90 PRINT3<Z»12). "4 ETAGES" : PRINT3( Z*26) . "5 ETAGES" : PRI NT3i Z*40) . 
PRINT3704, 01* 

93 REM *«-* DETERMINATION / D1FFICULTE **• 
200 PRINT376E. "D0NNE2 LE NOMBRE D' ETAGES > NIVEAU OE DIFFICULTE ) QUE VOUS C 

H0I5I5SEZ. NOMBRE "I : INPUT E I R-E-3 : IF E<4 DR E> 6 THEN 200 : DIM fi»(E*i>.B» 
<E*1).C»1E*1) . A "E). B<E).C(E) 

21B PRINT3896. "VOULEZ-VOUS LES REGLES DU JEU 40/N)"l : INPUT R« : A»i E*l > = "A" : 
B*<E*1)-"B'- i Ct<E*l>-"C" 
22B IF R*-"0" THEN 23B ELSE 34B 
225 REM *** AFFICHAGE DES REGLES DU JEU *** 

230 CLS I PRINT364.D1* : PRINT3I 30. "BUT DU JEU i DEPLACER LES DIFFERENTS ETADES 
DE LA TOUR POUR LA RECONSTRUIRE SUR LA BASE C. " 

24B PR1NT3256. "CHAOUE ETAGE DGIT ETPE POSE. SDIT SUR LE SOL. SOIT SUR UN E 

TAOE PLUS LARGE QUE LUI. " 

25B PRINT33B4."P0UR DEPLACER UN ETAGE. VOUS DEVREZ INDIQUER LES LETTRES C 

ORRESPONDANT A LA TOUR DE DEPART ET A LA TOUR D" ARRIVES. VOUS DEVEZ OBTENI 

R i" i Z-512 i H"l 
260 FDR X-l TO E 
27B PRINT31Z + 10). B*cx> : PRI NTSi Z*25) , C*f X ) J PRINT3i.Z-.40) . S» t X > : Z=Z»64 : NEXT 



28B PRINT3(Z»15).0»(E* 

: PRINT3Z.D1*1 

230 FOR X-l TO 8000 : NEXT X I GOTO 340 

335 REM *** INITIALISATION DES TABLEAUX DE JEU 

34B FOR X-l TO E : A.X1-X : A«(X>=S»<X> : B»<X 

345 REM *** AFFICHAGE APRES CHADUE DEPLACEMENT 



PRINT3CZ+30>.B*(E*1> i PRINTB<Z»45> . C*1E* ' 



Z-Z»64 




4B0 FOR X-I TO E 


> IF CCX>-0 THEN 490 ELSE 500 






USB NEXT X 








5BB W-3 I TI-CcX 


I IF TA«-"C" THEN 770 






52B IF TO»-"A" THEN 540 






53B IF TA*-"B" THEN 59B ELSE 640 






533 REM **. TOUR 


D' ARRIVEE : A **»- 






54B FOR V-E TO I 


STEP -1 I IF A(Y)«0 THEN 560 






530 NEXT y 








560 IF Y-E THEN 


580 






570 IF Tl (AiV*l) 


THEN 38B ELSE 77B 






5B0 A<Y>-Tl I Tl 


■B : ON W GOTO 72B. 740. 7EB 






5E5 REM *«■» TOUR 


D" ARRIVEE I B **• 






590 FOR Y-E TO 1 


STEP -1 I IF B(Y>-0 THEN 610 






G00 NEXT V 








610 IF V=E THEN 


E.30 






620 IF T1>8<Y*1I 


THEN 770 ELSE 63B 






630 BlV)«Tl I Tl 


-B : ON H GOTO 720. 740. 760 






635 REM **-i TOUR 


D' ARRIVEE t C *•>*■ 






640 FOR V=E TO ! 


STEP -1 1 IF C<Y)-B THEN 660 






65B NEXT Y 








66B IF Y=E THEN 


m 






67B IF Tl <Ci Y+l ) 


THEN S80 ELSE 770 






6BB C<Y>=T1 : Tl 


=0 : ON W GOTO 720. 740. 760 






715 REM *■** SUPRESSION DE L' ELEMENT DE DEPART 


DANS A. B 


OU C) +** 


72B A'X)-B : GOTO B00 






740 BlXl=0 : GOTO B00 






760 C<X>«0 1 GOTO 800 






770 T|-0 ! PRINT3960. "ARRIVEE IMPOSSIBLE" I GOTO 350 




775 REM KM TRAN5FERT DES ELEMENTS D'AFFICHAGE 


DES TOURS 




800 IF TD»="«" THEN E20 






E10 IF TO*-"B" THEN 860 ELSE 900 






815 REM --* TOUR 


DE DEPART i A +** 






820 FOR X=l TO E 








B30 IF A«(X»"*' M 


THEN 840 ELSE 850 






S40 NEXT X 








850 IF A»f SO «="<!" 


THEN TI0-" " ELSE T1»=A«'X> : 


A»(X)»* ' 


•■ GOTO 940 


855 REM *■« TOUR 


DE DEPART : B **«■ 






860 FOR X=l TO E 








870 IF B»iX)= M " 


THEN 880 ELSE 890 






880 NEXT X 








890 IF B*IX)*"B" 


THEN Tl*»" " ELSE Tl*=B*iX) : 


B*fX)=" ' 


: GOTO 940 


895 REM » + *■ TOUR 


DE DEPART : C «*» 






900 FDR X-l TO E 








910 IF C»IX)=" " 


THEN 920 ELSE 930 






920 NEXT X 








930 IF C«<X)-"C" 


THEN TIM" " ELSE T1MC9CK1 J 


C»(X)= # ' 




940 IF TA»="A" THEN 960 






950 IF TS*="P" THEN 1BBB ELSE 1040 






955 REM -*+ TOUR 


D" ARRIVEE t A *** 







950 FDR Y=E TO 1 STEP -1 
970 IF AHY)-" ■' THEN 990 
980 NEXT Y 

990 A»cY>=Tl* : Tl»=" " : GOTO 101 
995 REM ««* TOUR D 1 ARRIVEE I B **■ 
1000 FOR Y-E TO 1 STEP -I 
1010 IF B»<Y)=" " THEN 1030 
1020 NEXT Y 

1030 B»(Y>=T1» : TI«-" " I OOTO I 
REM < 



THS 



80 



■* TOUR C ARRIVEE i 
FOR Y-E TO 1 STEP -1 
IF C«(Y>-" " THEN 1070 
NEXT Y 

REM -*«■ TEST : RECONSTRUCTION TERMINEE OU NON **■* 
C«'Y)-T1» I Tl*-" " 

IF C»tl)-* X " THEN 1085 ELSE 350 
REM *** AFFICHAGE FINAL *•* 
GOSUB 7000 

REM *** SCORE ETABLI *** 
S«C2*E>-1 i PRINT3772. "VOUS AVEZ REUSSI A RECONSTRUIRE LA TOUR EN ' 

IF N-S THEN 1130 

IF NXSMB) THEN 1140 ELSE USB 

REM *** APPRECIATIONS •*■* 

PRINT3832. "TRES BON t ON NE PEUT PAS MIEUX !!!" t GOTO 1160 

PRINTB832. "IL FAUT PERSEVERER. LE MINIMUM EST "iSl" COUPS ..." : G[ 



33B GOSUB 7E 












i 


50 PRINT3832. 


NE PRS SE DECOURROER. LE MINIMUM 


EST "iSi" COUPS 




353 REM *** 


DEFINITION D'UN DF= 


™"EMENT «■*• 








i 


60 PRINTSB36. 


V0ULE7-V0US REJOUER iO/Nl"l : INPUT R» 




360 PRINT3832. "TOUR DE DEPr 


JPUT TD» 1 N-N 


*i 








70 IF RX*— "ti" THEN 90 








J7B PRINT3B96. "JOUR D" ARRIVEE 


■ INPUT TR* 1 U>0 










175 REH • *+ F 


I N **♦ 








375 REM «*• 


TESTS i ftHRIVEE P05SIBLE 01' NON .»+ 








liae CLS : PHINTS3^8.0. PFI 


1TB475. -RII R6V0IR- 






400 IF TD»- 


R" THEN U2B 










1 190 >R NT35* i. 0% 








410 IF TD«= 


B" THEN 450 ELSE 480 








1210 FOR X=l TO 


700 : NEXT x 








415 REM **• 


TOUR DE DEPORT i A 










1220 END 










420 FOR X-l 


TO E : IE 0CX>-8 THEN UZB E 








S995 REH *** SOUS-PROGROHME D 


RFFICHRGE DES TOURS **■ 




(,30 NEXT X 












7000 CLS : Z=256 








440 W-l : T 


■fl(X> 1 IF Tn.-'-ft- 


THEN 770 ELSE 520 








7010 PRINTQ1. i 


PRINT3S7.T* i 


PRINTB147.0* 






445 REM *** 


TOUR DE DEPBRT : B 










7020 FOR X-l TO 


E 








450 FDR X-l 


TO E i IF B<X)-B THEN &EB ELSE 470 








70J0 PR1NTSIZ*10).RI' X) : PRINTD<7*25) . B*(X ) : PRINT3I7 + 4B) . C*< X > 




460 NEXT X 












7040 7-7*S4 . NEXT X 








470 W-2 > T 


-BIX) i IF Th»-"B" 


THEN 770 ELSE 520 








7050 PRINTaiZ-lSl.flU E*l l :PRI 


UT3( Z+301 . B.IEtl ) l PRINTi 




475 REM *** 


TOUR DE DEPRRT : C 










7060 PRINT3704. Dl* : RETURN 






■ 


*. ft 


%: : 1 


p rv 


IN 1 


ON 


683 -TU ES 


723 "DS 


764 GTO 14 


865 OVIEU 


847 FRC 


887 SF 18 


928 -TU KEU 


* *' 'jC ^ 


-EZ U\ 


./INd 


\Jvi 


LIBRE- 


PIECE ■ 


765 1 E2 


886 TONE 3 


848 STO I 


888 -28.8 


RES" 


aJL 


■L!#1 C 








684 OVIEU 


724 RCL 61 


766 • 


887 CTO 14 


849 RDN 


889 RTN 


929 CLX 




kir.Ur^ 


P 1 A 


Mf" 


■DT 


685 PSE 


725 18 


767 -F - 


868«LBL 91 


858 18 


896H8L 51 


936 STO 83 


yJB 


Jl,;vU 


C LM 


Ivlv- 


'ri 1 


686 SF 29 


726 / 


768 ORCL X 


889 CLO 


851 ST« L 


891 RCL 68 


931 STO 66 


^wJH 










687 DSE 85 


727 RCL 81 


769 -FN- 


818 XEO 77 


852 RDN 


892 1 E-2 


932 STO 88 




542 "FS" 


578 FS' 63 


613 1 


648«LBL 23 


688»LBL 92 


728 LOSTX 


776 FS?C 11 


811 -F • 


853 LOSTX 


893 HNS- 


933 BVIEU 


•.1^ 


543 RVIEU 


579 CTO INI 1 


614 ST- 65 


649 TONE 2 


689 CF 11 


729 NOD 


771 -PIN- 


812 XEO 93 


854 XOY 


894 STO 88 


934 PSE 


\Ia 


544 TONE 7 


586 GTO 63 


615 OVIEU 


658 TONE 8 


698 CLO 


736 LOSTX 


7724LBL 14 


813 XEO 82 


855 RTN 


895 X<=8' 


935 TONE 6 


^r 


545 CTO 89 


58HLBL 61 


616 PSE 


651 XEO 18 


691 OVIEU 


731 » 


773 RCL 83 


814 XOY 


856»LBL 77 


896 CTO 88 


936 CLfl 


Suite de 


546«LBL 64 


582 1 


617 FS' 16 


652 GTO 16 


692 FC 29 


732 1 


774 CTO 62 


815 RCL 69 


857 CTO IHD 18 


897 2 


937 CLST 


547 XEO 66 


583 ST- 85 


618 SF 89 


653»LBL 94 


693 RTN 


733 * 


775«L8L 17 


816 XEO 82 


8584LBL 81 


898 XOY 


938 DEC 


la pag 


e 2 548 -F ROTE" 


584 -TU N 


619 FS?C 11 


654 CF 61 


694«LBL E 


734 XOY 


776 -XP- 


817 RDN 


859»LBL 82 


899 X«Y' 


939 OFF 


513 xw 


549 FC? 65 


ES PLUS • 


628 CTO 16 


655 RCL 63 


695 FS' 87 


735 INT 


777 BSTO X 


818 X>Y? 


866'LBL 83 


968 GTO 61 


946 CTO 97 


514 CTO 97 


558 "FS" 


585 XEO 44 


621 FCC 87 


656 INT 


696 GTO 48 


736 1 


778 XEO 19 


819 GTO 83 


861 -FLO CLE D - 


961 -NOLEDIC 


94XLBL 93 


515 -Tl) SUR 


IK- 551 nVIEH 


586 OVIEU 


622 GTO 94 


657 BBS 


697 -TUEI1R lie 


737 * 


779 RCL 84 


826 X=Y? 


862 XEQ IND 16 


HON OCT 


942 RCL 61 


516 DSE 86 


552 TONE 8 


587 TONE 7 


623 -TROPPE 


658 ST* 64 


DRAGON- 


738 SRCL X 


788 GTO 81 


821 CTO 68 


863 RTN 


982 -FIVE- 


943 16 


51? FS' 29 


553 GTO 69 


588 PSE 


FERNEE- 


659 25 


698 FS' 68 


739 "F :• 


781»LBL 18 


822 -FSUD- 


8644LBL 45 


963 SF 64 


944 NOD 


518 CTO 9? 


554«LBL 66 


589 CTO 63 


624 RVIEU 


668 X=V 


699 XEO 83 


748 OREL 1 


782 "SORT- 


823 GTO 88 


865 -it L ■ 


964 BVIEU 


945 RTN 


519 CLX 


555 "IL Tf 


596»LBL 88 


625 BEEP 


661 SF 88 


768 XEO 17 


741 OVIEU 


783 BSTO X 


824«LBL 63 


866 XEO IND Y 


965 FS'C 68 


946»LBL 47 


526 FS?C 87 


556 FC 65 


591 XEO 99 


626 PSE 


662 DEC 


761 RCL 66 


742 PSE 


784 XEO 19 


325 -FNORD- 


867 RTN 


966 XEO 95 


947 XEO 99 


521 CTO 62 


557 "TO LE" 


592 .8 


627 GTO 63 


663 RCL 18 


762 "PC" 


743 FC? 86 


785 RCL 85 


826*LBL 88 


868»LBL 81 


967 DSE 86 


948 .5 


522 flVIEM 


558 RTN 


593 - 


6284LBL 88 


664 CHS 


783 fiSTO V 


744 FS? 16 


786»LBL 81 


827 Rt 


869 -FETBIN- 


988 FS' 29 


949 - 


523 PSE 


5594LBL D 


594 XEO 88 


629 .2 


665 FS' 16 


764 CLO 


745 GTO 62 


787 X=8? 


828 Rt 


878 RTN 


969 GTO 9? 


958 RTN 


524 CTO 15 


566 XEO 92 


595 -LE SORT - 


636 FC 68 


666 STO 69 


785 XEQ 81 


746 FS?C 11 


788 "FPflS DE-829 X<V 


871»LBL 82 


918»LBL 61 


951»LBL 44 


525«L8L 82 


561 RCL 85 


596 OVIEU 


631 CLX 


667 -BROVO- 


766 XEO 18 


74? GTO 41 


789 X«8' 


836 CTO 63 


872 -FBRCENT- 


911 RCL 68 


952 -t-HBUDIT" 


526 "PBRRLI 


5IE- 562 X<=8' 


597 TONE 7 


632 - 


668 OVIEU 


767 "ONCE NOIP 


• 748 RCL 89 


796 ORCL X 


831 X=Y' 


873 RTN 


912 .2 


953 RTN 


527 BVIEM 


563 GTO 23 


598 FC 88 


633 .1 


669 BEEP 


768 FS' 83 


749 X>8' 


791 "F " 


832 CTO 61 


874»LBL 83 


913 NOD 


954»L8L 46 


528 TONE 2 


564 FS' 82 


599 CF 89 


634 FC 64 


678 XEO 17 


789 XEQ 83 


756 XEO 91 


792 ORCL 1 


833 "FOUEST 


■ 875 -FOR- 


914 X»8' 


955 XEO 99 


529 XEQ 51 


565 GTO 63 


688 PSE 


635 CLX 


671 CLX 


718 -TU ES ■ 


75i«LBL 82 


793 1 


834 GTO 81 


876 Xt2 


915 RTN 


956 » 


536 XES 47 


566 Xtu 51 


681 FS'C 89 


636 ♦ 


672 STO 63 


711 XEQ 44 


752 RCL 88 


794 X«Y' 


835«LBL 83 


877 RTN 


916 RDU 


957 INT 


531 CF 65 


567 RCl 63 


682 CTO 81 


637 RTN 


673 FCC 16 


712 FS? 66 


753 "RESTE 


■ 795 -FS- 


836 -PEST" 


878*LBL 84 


917 2 


958 RTN 


532 FS' 66 


568 FC 87 


683 FC 16 


638»LBL 87 


674 GTO 63 


713 "tl ONNEOL 


•754 INT 


796«LBL 83 


837»LBL 81 


879 -FL ESCBLIER 


918 XEQ 46 


959*LBL 99 


533 X<=6' 


569 X«6' 


664 X>8' 


639 .2 


675 -SORTIE' 


■ 714 FC? 88 


755 X=8? 


797 OVIEU 


838 CF 86 


888 SF 86 


919 ST* 66 


966 RCL 88 


534 GTO 16 


576 GTO 86 


685 CTO 88 


646 FC 68 


676 GTO 62 


715 FS? 64 


756 SF 11 


798 CTO 14 


839 CF 89 


881 RTN 


928 RTN 


961 PI 


535 CF 88 


571 FS'C 64 


686»LBL 81 


641 CLX 


677«LBL 89 


716 XEO 63 


757 FC? 11 


799«LBL 19 


848 CF 18 


882«LBL 85 


921*LBL 86 


962 * 


536 XEQ 95 


572 CTO 81 


687 -FBGIT- 


642 * 


678 RTN 


717 FS? 29 


758 ARCL X 


866 -Til OS 


841 OVIEU 


883 -FLB 


922 -TROP IBRD 


■963 3 


537 CTO 16 


573 RCL 89 


688 GTO 62 


643 .1 


679»LBL 66 


718 STOP 


759 FC? 11 


861 FIX 8 


842 PSF 


PRINCESSE- 


923 CLX 


964 YtX 


538«LBL 83 


574 X>6? 


689*LBL 86 


644 FC 84 


686 -FBHTflS 


719 FS? 29 


768 -FHR" 


862 RTN 


843 RTN 


884 RTN 


924 STO 66 


965 FRC 


539 XEO 68 


575 CTO 63 


618 -FECHOUE- 


645 CLX 


T10UE- 


726 CTO E 


761 LRSTX 


883«LBL 95 


844«LBL 62 


885«LBL 86 


925 BVIEU 


966 STO 66 


546 "F COCK 


E- 576 XEO 93 


611 SF 11 


646 - 


681 OVIEU 


?21»L8L 71 


762 FRC 


884 -SHNEOI) 


845 INT 


886 "FLE SOR 


926 PSE 


96?«LBL 14 


541 FC 85 


577 X»«? 


612«L8L K 


647 RTN 


682 BEEP 


722 XEO 51 


763 X=8? 


PERDU- 


84« LOSTX 


CIER- 


927»LBL 97 


968 .END. ■ 



ESPERANCE DE VIE 



Void un programme {adapte d'un logiciel pour PC 1211) 
qui permet de connaitre l'age de sa mort (histoire d'ega- 
yer les soirees entre amis). Le message final "Le rire est un 
gage delongevite" est la pour assurer lessuperstitieuxsur 
le serieux du programme, qui fait neanmoins appel a des 
etudes de statistiques sur les relations entre le mode et 
I'esperance de vie. 



Christophe BOURDILLEAU 



5 DIM E< 15; 

i GOTO 165 

) SCROLL 

S SCROLL 

) PRINT ■■**:t:t***.t*t*****i*ti*.t**tX*X*r*t*" 

5 SCROLL 

S SCROLL 

5 LET N=>N*1 

J PRINT TfiB 3- "QUESTION N0. ",N 

S SCROLL 

J SCROLL 

S SCROLL 

! RETURN 

5 SCROLL 

) SCROLL 

S INPUT Ql 

! PRINT "REPQNSE' ">QV 

I GOSUB 93 

) RETURN 

J IF OS""" THEN RETURN 

> IF QI<1>»"0" THEN PRINT RT 21,10i"UI" 

) IF OI(n«"N" THEN PRINT AT 21, IB, "OH" 

I RETURN 

) PRINT RT 21.9)* 

J INPUT W 

» PRINT RT 21,S;Q*. 

J G03U6 35 

i GOTO LD 

! IF QK1X>"0" AND WC1X>"N" THEN GOTO Hi 

S WTO LD+5 

IF Qt«"" THEN PRINT "VIT ENCORE" 
THEN PRINT " RNS" 



THEN GOTO 118 



E3PERRNCE *" 
',TRB 14. "DE". TfiB 22 j "I 
';TRB 14. "VIE". TfiB 22.' 



IF WO 

RETURN 

IF Q8*"' 

RETURN 

PRINT TAB 8,". 

PRINT TAB 3." 

PRINT TfiB 8t" 

PRINT RT 4. Ill "+♦++"«■*♦♦++" 

PRINT 

PRINT "REPONOEZ AUX 20 QUESTIONS ET". 

VOUS INDIOUERBI VOTRc", "E3PERANCE DE > 

PRINT 

•VOUS POURREZ TAPER " 

N"" POUR HON" 

0"" POUR 0U1" 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



SI VOUS TAPEZ 1 ' 



INEW-LINE-VOUS PRS3ERE2 R LB"." QUESTION SUIVANTE" 
*(C),VOUS POURREZ CORRIGER VOTRE"," REPONSE" 

PRINT AT 21,0. "TAPEZ NEW-LINE POUR COMMENCER" 

INPUT Qi 

CLS 

LET N-0 

GOSUB ie 

PRINT "QUEL EST VOTRE PRENOM T" 

GOSUB 63 

LET LD-263 

GOSUB 161 

LET PI-OI 
I INPUT CI 
I IF CM"C" THEN GOTO 110 

i cosue 10 

I PRINT Pi. "." 

I SCROLL 

i PRINT "ETES-VOUS " 

I SCROLL 

[ PRINT "-UN HOMME ?(H)" 

I SCROLL 

i PRINT "-UNE FEMME '(F)" 

I GOSUB 6? 

1 LET LD-327 



Z%8A 



IF &«■■ 
i IF GI»"H" 
I IF Q»- H H" 
i IF OI*"F" 
i IF QI="F" 
■ INPUT C* 



THEM 

THEM 
■Hf-ll 

THEN 



MO"F" THEN 

PRINT "OMME" 
LET E< 1 >-3 
PRINT "EW1E" 
LET EC 1 >-0 



GOTO 110 
355 GOSUB 10 
360 IF W""H" THEN GOTO 333 
363 PRINT "JE 3UIS NRVRE D""ETRE SI" 
370 SCROLL 

375 PRINT "INDI5CRET,",P* ( "," 
380 SCROLL 

385 PRINT "QUEL EST VOTRE RGE ?" 
530 GOSUB 6? 
395 LET LD-408 

400 GOSUB 161 

401 PRINT " RNS". 
404 LET EC2J-VHL Q* 

410 IF E<2>>0 THEH GOTO 483 

413 PRINT " rePons«»*fui«" 

433 FOR T»l TO 50 

460 NEXT T 

465 GOTO 110 

4B3 LET E(2»"E(2)X.24 

490 INPUT C» 

495 IF CI="C" THEN GOTO 110 

590 GOSUB 10 

505 PRINT "QUELLE EST VOTRE TRILLE ?" 

310 SCROLL 

515 PRINT "'.EN METRE)" 

520 GOSUB 65 

325 LET LD»530 

330 GOSUB 161 

331 LET E'3)"VRL QI 

335 IF E<3j>1 AND E(3X*2.2 THEN GOTO 560 
540 PRINT " r«Pentt9>tf>il«»" 



an 

K'iZ 

£33 

b40 
HI 

635 

661 
665 
666 

67e 
673 

6=? 
1-c- 
-:-.,* 

635 



FOR T*l TO 50 

NEXT T 

GOTO 110 

INPUT C* 

IF Ci»"C" THEN GOTO 110 

GOSUB 10 

PRINT "QUEL EST VOTRE POIDS ?" 

SCROLL 

PRINT "CEN KG. )" 

GOSUB 65 

LET LD-608 

GOSUB 161 

LET E(4)«VHL Q« 

LET E<4>-6-<E'.4v<E'.3W >*1 I0j*10 i 

INPUT C* 

IF CI""C" THEN GOTO 110 

GOSUB 10 

PRINT "ETES-VOUS "., 

IF E<1>0 THEN PRINT "UNE CITROINE T 

IF E<t>—3 THEN PRINT "UN CITADIN ?* 

SCROLL 

PRINT "<0-N>" 

GOSUB 65 

LET LD-660 

GOSUB 161 

GOTO 135 

IF QI', 1)«"0" 

IF QttlXJ-O 1 

INPUT C* 

IF CI*"C" THEN GOTO 110 

GOSUB 10 

PRINT "VIVEZ-VOUS SOLITRIRE 

SCROLL 

PRINT "CO-N>" 

GOSUB 65 

LET LD-710 

GOS'JB 161 

GOTO 135 

IF OKD-' 

IF QIC 1 X : 

INPUT C* 

IF C*="C" THEN GOTO 110 

G03UB 10 

PRINT "fiVEZ-VQUS SUIVI DES ETUDES' 

SCROLL 

PRINT "SUPERIEURES ?< RPRES LE BRC 

SCROLL 

PRINT •• f .0-N>" 

GOSUB 63 

LET LD=770 

GOSUB 161 

GOTO 133 
i IF 0*<- 

I IF 0*'. 1 X>"0" THEN 
< INPUT r.$ 

i IF CI=>"C" THEN GOTO 110 
I GOSUB 10 

i PRINT "EXEPCEZ-VOUS UNE PROFESSION' 
I SCROLL 

i PRINT "INDEPENDfiNTE 'CQ-N>" 
I GOSUB 65 
I LET LD=323 
i GOSUB 161 

GOTO 135 
i IF QC>: 1 )«"0" 



THEN LET Ei3)«3 



MS 

.-■?5 

?7D 



3T-5 



1020 

1*21 

1025 

1030 
1035 
1048 
I04S 

1050 

105J 
I860 

10;? 

1070 
1071 



IF OKIX/'O" THEN LET EO >' 

IN^UT CI 

IF Cl-"C" THEN GOTO 110 

go-sue :e 

PRINT "FA! rHft-VOUB PRPTIE OE Lfl" 

SCROLL 

PRINT "PCPULRTION RCTtVE "»( 0-N >" 

GOSUB 65 

LET LD"B70 

GOSUB 161 

GOTO 133 

IF QICl)-'^" THEN LET E'. 9 )»2 

IF GHK1X> M 0" THEN LET E<9>-0 

INPUT CI 

IF CI«"C" THEN GOTO 110 

GOSUB 10 

PRINT "PRflTIQUEZ-VOUS 'JN 5P0RT T" 

SCROLL 

PRINT "(0-N>" 

GOSUB 65 

LET LD-320 

GOSUB 161 

GOTO 133 

IF Q*< 1 >■' 

IF QIC IX. 

INPUT CI 

IF CI-"C" THEN GOTO 110 

GOSUS 10 

PRINT -SUBI88EZ-V0US UNE VISITE" 

SCROLL 

PRINT "MEDICRLE RNNUELLE '<0-NJ" 

GOSUB 65 

LET LD-970 

GOSUB 161 

GOTO 133 

IF QK 1 )-"0" 

IF QIC 1 ><>"0' 

INPUT CI 

IF CI-"C" THEN GOTO lie 

GOSUB 10 

PRINT "COMBIEN FUMEZ-VGUS DE" 

SCROLL 

PRINT "CIGARETTES PAR JOUR T" 

GOSUB 63 

LET LD=1020 

GOSUB 161 

LET E< 12 >=VRL 0* 

LET E' 12 ■=■ Ei 12 ■■ 18 actl.3 

INPUT CI 

IF CI="C" THEH GOTO 110 

GOSUB 10 

PRINT "COMBIEN B0VEZ-V0U8 DE VERSES' 

SCROLL 

PRINT "• 7IN-6IERE.. > Pf» JOUR '" 

GOSUB 65 

LET LD=1070 

GOSUB 161 

LET E« \'i WVflL W 

LET E' 13-^E' 13) 2-2 

INPUT C* 

IP C»«"C" THEN GOTO 110 



1090 GOSUB 10 

1095 PRINT "VOUS RLLEZ PENSER DUE JE SUI3 UN 1 

1100 SCROLL 

1105 PRINT "ORDINRTEUR INDECENT .MfilS. .. " 

1110 SCROLL 

1115 PRINT "ETES-VOUS 3RTI3FAIT". 

1120 IF EO)*8 THEN PRINT "E" . 

1125 PRINT " DE VOTRE" 

1130 SCROLL 

1135 PRINT "VIE SEXUELLE ?'.0-N," 

1150 GOSUB 65 

1155 LET LD=11^0 

1160 GOSUB 161 

1161 GOTO 135 

1165 IF QKDb-O' 

1166 IF B» 1 >0"l 
1170 INPUT CI 

1175 IF CI»"C" THEN GOTO 111 
1180 GOSUB 10 

1133 PRINT "ETES-VOUS RNXIEU 1 
1190 IF E( 1 '=0 THEN PRINT '" 
1193 IF E<. 1 .— 3 THEN PRINT ' 
1200 SCROLL 
1295 PRINT "',0-N>" 
1210 GOSUB 65 
1213 LET LD-1220 
1223 GOSUB 161 
1221 GOTO 135 

1225 IF Q»< 1>="0" 

1226 IF ai(lX)"0' 
1230 INPUT C« 

1235 IF CI="C" THEN GOTO 110 
1240 GOSUB 10 

1245 PRINT "COMBIEN DE TEMPS DORHEZ-VOUS' 
1250 SCROLL 

1255 PRINT "PAR NUIT KEN HEUREV 
1260 GOSUB 65 
1265 LET LD-1270 

1270 GOSUB 161 

1271 LET E< 16>=VRL 01 

1272 IF EU6X-24 THEN GOTO 1278 

1273 PRINT " r*Pot,$***f<i**f 

1274 FOR T»l TO 50 

1275 NEXT T 

1276 GOTO 110 
1278 LET E( 16>=E' 1^. ■ -2-i 
1238 INPUT CI 

1285 IF CI""C" THEN GOTO 110 
1290 GOSUB 10 

1235 PRINT "RGE DE DECES DE VOTRE MERE ?' 
1300 SCROLL 

1305 PRINT "' TRPEZ NEW-LINE SI ELLE" 
1310 SCROLL 

1315 PRINT "VIT ENCORE)" 
1320 GOSUB 63 
1325 LET LD-1330 
IK-* GOSUB 150 

1332 IF 0*="" THEN LET E<17)*75 
1335 IF WO"" THEN LET E- 17)»VAL Of 
1340 LET E( 17>=-'75-E' 17 
1345 INPUT C* 

1353 IF C*""C" THEN GOTO 110 
l.:-6U GOSUB 10 

1365 PRINT "RGE DE DECES DE VOTRE PERE T 
1370 SCROLL 

1375 PRINT *■< TRPEZ NEW-LINE SI IL" 
1380 SCROLL 

1385 PRINT "VII ENCORE '" 
1 ^3U GOSUB 65 
1355 LET LO»1400 
1400 GOSUB 150 

1405 IF ©*-■'" THEN LET E<18)=72 
1410 IF Q»<.;"" THEN LET E< 18)»VfiL 0% 
1415 LET E'.'18)a(72-EU8>v8 
1420 INPUT CI 

1425 IF CI="C" THEN GOTO 110 
1430 GOSUB 10 

1435 PRINT "DUEL EST LE NOMBRE 
1448 SCROLL 
1445 PRINT "GRfWDS-PRR£NT8 A'rRNT DEPRSSE 

1450 SCROLL 

1455 PRINT "LES 80 RNS '" 

1460 GOSUB 65 

1463 LET LD-1470 

1478 GOSUB 161 

1471 LET EC19>VnL 01 

1475 IF EU9X=4 THEN GOTO 1500 

1480 PRINT " r«Por>£«»-efus«" 

1435 FOR T^l TO 50 

1490 HEX! ' 

1495 GOTO 110 

1308 INPUT CI 

1395 IF CI="C" THEN GOTO 118 

1510 FR3T 

1515 CLS 

1520 SLOW 

1525 LET ES-INT i 70+EC 2 )*EU 

9 )+E< 6 HE< 10 HE-. 1 1 i*E: 5 >+EC 7 

1530 LET B-INT - RBS E: 4 j+E' I 

1335 PRINT PI,"," 

1340 PRINT "VOTRE ESPERRNCE DE VIE EST DE 

1545 PRINT RT 3.11." ■ ^^^— •" 

1530 PRINT TAB 11;"T"-TR8 20, " T" 

1555 PRINT TAB 11." ■ •_■ ■" 

1560 PRINT RT 4,16-LEN STR* E81ES*" RNS" 

1565 IF B<2 THEN GOTO 1630 

1570 PRINT RT 7.0, "VOUS PGURRIE2 GRGNER " 

1575 PRINT "31 VOUS " 

1580 PRINT 

1535 IF EC4X-2 THEN PRINT "-PERDIEZ DU POIDS" 

1390 IF E'12)>5 THEN PRINT "-CESSIEZ DE FUMEP" 

1595 IF E<13»1.3 THEN PRINT "-BUVIEZ MOINS" 

1600 IF E4 10-0 THEN PRINT "-FfllSIEZ DU SPORT" 

1685 IF E'U>*0 THEN PRINT "-VOUS FRISIEZ EXRMINER' 

1610 IF E<11^0 THEN PRINT " REGULIEREMENT" 

1613 IF EC16X-1.4 THEN PRINT "-DORMIEZ PLUS" 

1620 IF EU6».9 THEN PRINT "-D0RMIE2 MOINS" 

1625 IF E'.6.'<0 THEN PRINT "-ROMPIEZ VOTRE SOLITUDE 1 

1630 PRINT 

1635 PRINT "N""OUBLIEZ PRS. . . " 

1645 PRINT " l«»-ir«fcsf*V<a«Wckl!oT>9«vi f " 

1650 STOP 

1655 SAVE "■" 

1660 RUN 



SOLUTION DE 
L'HIPPOREBUS: 



10 FOR 1=1 ID 14 

20 READ X 

30 PRINT CHRttl) ; 

40 NEXT I 

50 END 

60 DATA 65,76,80, 

72,65,78,85,77,69, 

82,73,81,85,69, 





«es E<4>-E<12>-flBS E<13>-HB1 EC 16)-E( 17)-£< 18HEC1 

E(8)+EC9HE( 14.+EU5)) 

^RB8 Ei l3>EC6>-EOB>-E' U->*l+nB3 EM6>, 



ftN£.' 



Loo9^eur BASIC ?.? K. 

Les c,r*cter»* nlwuculn doivent ,PP,r»iM^ m 



,tdvo i nvtrst*. 



HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 340 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 x 8,00 = 416 FRANCS. ABONNEMENT POUR 6 MOIS : 180 FRANCS. 



MOM: 

PRENOM : 
ADRESSE : 
REGLEMENT JOINT: 



□ CHEQUE 



DCCP 



MATERIEL UTILISE : 
CONSOLE : 
PERIPHERIQUES : 



NERKA 



Si vous aimez la mer et si vous n'etes pas claustrophobe, 
ce jeu de simulation est fait pour vous. 



suite du 
listing du 
N16 



PRIST 

*3B5 If 



2 the-. 



Michel ZINDY 

Mode d'emploi : 

Nerka est un jeu de simulation dans lequel les situations sont reprodui- 
tes le plus fidelement possible. 

Vous etesauxcommandesd'unsous-marinnucleaire.armede missiles 
mer-mer et de torpilles. Votre mission est de detruire le maximum de 
batimen is ennemis. Vous pouvez plonger. rester en immersion perisco- 
pique, lancer vos torpilles, vos missiles, faire le mort en vous collant 
au fond, lacher de I'huile. etc... 

Les bateaux ennemis se deplacent et les corvettes tentent de vous 
envoyer par le tond avec leurs canons et leurs grenades sous-marines. 
Vous remarquerez que vous ne pouvez tirer vos torpilles que dans I'axe 
du submersible (tubes avant ou arriere), alors que les missiles se depla- 
cent dans les huit directions et detruisent tout dans un rayon dune 
case autour de leur point d'impact. Attention aux collisions avec les 
mines et les bateaux !! 

Un certain nombre de bateaux ravitailleurs vous permettront de vous 
refaire une sante, les pleins de missiles, de carburant et de torpilles. 
Mais les situations qui peuvent se presenter sont tenement nombreu- 
ses que je vous laisse les decouvrir. 

Les touches de commande (voir listing) vous renvoient dans les sous- 
programmes correspondents A noter que (P)eriscope permet de 
regarder tout autour de soi, puis de manceuvrer ou de tirer (M ou T). A 
noter egalement qu'il est presque toujours possible d'annuler une 
commande en tapant une autre touche que celles attendues (on 
revient alors au menu). Attention ! ne taper RETURN que lorsqu'appa- 
ra?t le curseur apres la question. 




-^u^- 



mp-f« 



3228 IF K « X€ > 6 ftMD X ♦ « i 41 

AND V ♦ Y6 :> e AND V * V6 C 21 

THEN 3239 
3223 POKE 768,248 POKE 769.20 

CAUL 778 
3230 HOHE ' HTAB I UTAB 21 PRIM - IMF 
OSSIBLE OUITTEP ZONE . "N« GOSUB 700 

HOME 
3249 X2 ■ PC! GOTO 3390 

3239 ON T<X ■* X6.Y * Y6 > * l GOTO 3260. 
3279, 3390.3 310. 3319.3269.3430 
3269 X - X ■* X6 Y ■ Y * Y6 PU - Pu 

- 108 IF PU I THEN PU - 9 

3262 P4 - P4 + INT <<P3 - P ) ' PK 
♦ 3> 

3264 IF TIX.Y> t 1 THEN T(XiV) ■ IXX.Y) 
- 3 GOTO 3266 

3263 T(X.Y) - 3 

3266 IF TCXCiYC) t 9 THEN T( XC , YC > 

- T(XC.YC) * 3 GOTO 3269 
3266 T<XC.YC> - 9 

3269 XC » X YC ■ Y'P ■ F4 COSUB 109 
COSUE 2000 GOTO 3359 

3270 [F P4 > - 29 THEN 3260 

3261 If K2 ■ pi THEN 3*20 
3299 HONE HTAB 1 UTAB 22 PRINT "UOJ 
S UEHEZ D'EPEPONNER iJN DE UOS" . "RAUITAIL 
LEURS. UOUS COULEZ. "NS 

ZZ9-i GOSUE 709 HOME 

329? GOTO 23809 

3309 HOME ■ HT&B 1 UTAB 21 < PRINT -REG 

aBDEZ DONC OU UOUS ALLEZ ■«* PRINT "UOII 

-; UOUS ETES PRESQUE ECHOUE M"i GOSUB 79 

9 HOHE X2 ■ PK GOTO 3399 

3319 P ■ P3 RETURN 

3339 IF P4 ) ■ 20 THEN 3260 

3369 HOME HTftE 1 UTAE 22 PRINT "UOu 

s auez eferonne jn bateau.-. "Uous coulez 

TOUS LES DEUX. "N» 
3363 FOR G - 1 TO 2080 NEXT HOME 

3370 BA = EA - t IF BA - 9 THEN 2303O 
3388 GOTO 23080 

3399 NEXT X2 POKE 763.130 POKE 769.20 

CALL 770 
3498 NONE HTAB I UTAB 21' PRINT "NAN 
OEUURE ACCOMPLIE PUI 

SSANCE DISPQNIELE "PU 
3418 GOSUB 700 NONE GOTO 3319 
3428 HOME POKE 763.150 POKE 76*. 29 
CALL 770 HTAB 1 UTAB 22 PRINT "APRIHA 
GE RAUITAILLEUR Oh' - . "CHAPCEHENT ET PEPAP 
ATIONS OK" 

3423 COSUB 700 NONE 

3430 FOR I - 1 TO 10 D' [> - NEXT P<J 
« 6100 T ■ 20 NH - 100 AIR - 1900 MI 

- 3 

3448 X2 - PK' GOTO 3268 

3438 IF P4 > - 20 THEN 3260 

3433 HOME HTAB 1 UTAB 22 PRINT -i.'O'J 

S AUEZ TOUCHE UNE MINE. "N« PRINT -UOUS 

COULEZ ' ! ■ 
3437 COSUB 700 HOME 
3468 GOTO 23000 

3508 REM CHANCEHENT DE PPOFONDEUP 
3318 IF D'6> ■ AND Dc5) - THEN 3330 

3313 POKE 768.130 POKE 769,20 

CALL 778' IF RND <1> < 4 THEN 3530 
3328 HTAB 1< UTAB 22 PRINT MIDI CO*. 3 
1.10/" EN REPARATIONS "H* COSUB 709 

GOTO 3113 
3339 INPUT "NOUUELLE PROFONDEUR ?"lR3 
IF INT 1.P3 ' 2) ) PU THEN PRINT "PA£ A 
SSEZ DE PUISSANCE "Nl COSUB 780 

HOME ■ GOTO 3538 
3535 IF P3 > FO THEN HOME HTAB 1 

UTAB 21 PRINT "SONAR INDIUUE FOND A 
■FO" METRES. "M* GOTO 3538 
3349 IF P3 > -9 AND P3 < ■ 689 

THEN 3370 
3330 HTAB 1- UTAB ZZ- PRINT "PPESSION T 
ROP ELEUEE. COOUE ECRASEE PAR PRESS ION. 

3369 GOSUB 700 GOTO 2-3990 
3378 IF FH - THEN 3373 

3371 IF P3 - FO THEN FI ■ t- GOTO 3375 

3372 FI - 9 

3373 PU ■ PU - INT ( ABS ( P - P3 :■ 
' Z * 3> 

3393 IF P3 ) 19 THEN PE ■ 8 COS'JB 600 

3399 GOTO 3113 

3699 REN RAFPORT DOHMAGES 

3618 FOR I ■ 4 TO 13 HTAB 6 UTAB [ 

PRINT SPC< 39): NEXT 
3613 HCOLOP - 3 HPLOT 33.23 TO 244.23 

TO 244.119 TO 35.119 TO 33.23 
3628 FOR I - 1 TO 18 Z* - MID* I OS. < I 
* 18) - 9.10> HTAB 7 UTAB 4 + I 

PRINT Z* HTAB 19 UTAB 4*1 

IF D< I J 4 > 1 THEH PRINT "QK" 

GOTO 3648 
3639 PRINT "EN REPARATIONS" 
3649 NEXT [ HTAB I UTAB 21 PRINT "OP' 

'" GET R»< HOME GOSUB 2988 RETURN 
3709 rem SABOPDAGE 



3718 HONE HTAB 1 UTAB 22 INPUT "MOT 
-CLE POUR AUTO-DESTRUCTION > " : HC * 
3720 IF HC» • HOI THEN INUEPSE 

PRINT "DISPOSITIF D 'AUTO-DESTRUCTION 
AMORCE" GOTO 3739 
3723 RETURN 

3738 GOSUB 700 HER 

3733 HTAB 1 UTAB 18 INVERSE 

PRINT "COHPTE A REBOURS ENCLENCHE > "N 
t 

3748 REE - 99 Z» » "■ 
3768 IF PEE I 10 THEN Z« - - - 
3778 HTAB 19 UTAB 13 PRINT Z«:P£B REE 
- REB - 1 POKE 760.130 POM 769-10 

CALL 7 70 

3739 FOP G - I TO 189 NEXT 
IF REB > * 1 THEN 3760 
TEXT POME 49232.8 
FOR I * 20 TO 128 STEP 5 FOP J 

TO 64 STEP 4' HCOLOP ■ 2 

SCALE- I DRAM 1 AT 149 . 96 



3798 
3800 
HOT" 



POKE 769.209 POKE 769.19 CALL 779 
NEXT J. t 

3919 G08UI 799 GOTO 23990 
4080 REM TIR SO'JS-MARIN 

4010 HTAB I UTH8 21 PRINT "OPTION 11- 
TOPPILLES 2-HISSILE8J ft GET R« 

POKE 768.130 POKE 769.28 CftLL 770 
iNUEBSE PRINT ft NORMAL 
4928 = UftL CM} 

4830 IF (. 1 OR :■ 2 THEN RETuRh 
4033 IF NH > - 10 THEN 4050 
4948 POKE 768.200' POKE 769.29 

CALL 778' HTAB 1 UTAB 2t PRINT "PAS 
ASSE2 D'HiJMMES POUR TIRER 

GOSUB 799 RETURN 
4838 ON GOTO 4832.4583 

4832 IF P > 29 THEN POKE 761.288 
POKE 769.20 CftLL 779 HOME 

PRINT "TIR IMPOSSIBLE. "N» PRINT "PP 
QFONDEUR TROP ELEUEE !l" GOSUB 780 
GOTO 4810 

4833 IF T ■ 8 THEN HOME HTAB I 

UTAB 21 PRINT -PLUS DE TORPILLES. "N 
( GOSUB 700 RETURN 
4864 HOME COSUB 789 

4963 HTAB 1 UTAB 21' PRINT "TUBES <8 - 
->BUftNT I — >APRIERE1 '": GET P» 

POKE 768.159 POKE 769.29 CALL 778 
INVERSE PRINT P» WOPMBL HONE 

4967 TU - UAL <R«> 
4878 IF TU ( 8 OR TU > 1 THEN RETURN 

4871 IF TU = AND Dl I ) ■ 1 THEN 

HTAB 1> UTAB 22 PRINT "COMPART IMENT 
TORPILLES AUANT INONDE" GOSUB 708 
HOHE GOTO 4063 

4872 IF TU ■ I AND Di 2 ) - 1 THEN 
POKE 763.200 POKE 769.28 CALL 778 

HTAB 1 UTAB 22 PRINT -COMPART IMENT TOR 
PILLES ARRIERE INONDE' GOSUB 708 

HOME GOTO 4865 
*930 GOSUB 799 

4933 HTAB I' UTfiB 21 PRINT "PRESSEP IF 
IPE> POUR LANCER LES TORPILLES* 

GET R« POKE 768.249 POKE 769.28 

CALL 770 
4119 C2 - <t<Cl ■» iTU * 4>> ' 9) 

- INT <<Cl - 3 * <TU * *11 ' 8>J 

* 6 T • T - 2 
4149 IF DI < > C2 OR PE - 8 OR P 

> 18 THEN 4198 
4138 X3 ■ 83 Y3 - 117. X4 - 189 
4168 HCOLOP - 3 HPLOT X3.Y3 HPlOT X4 
.Y3^X5 - X3 X6 ■ X4 : Y4 « Y3 X3 » X3 



, X4 : 



X4 ■ 



> Y3 - 



HCOLOP 



■ 8' HPLOT X3.Y4 HPLOT X6 . < 

> 64 THEH 4160 

4198 RESTORE FOR I - I TO 26 

READ A1.A2 NEXT 
4288 X2 - XC-Y2 ■ YC FOR J ■ 1 TO C2 

READ X3.Y3 NEXT FOP I - 1 TO 4 
4218 X4 - X2 ♦ X3'Y4 - Y2 * Y3 
4213 IF X4 < 1 THEN X4 - 1 

4216 IF X4 ; 40 THEN X4 - 49 

4217 IF Y4 t 1 THEN Y4 - 1 

4218 IF ¥4 > 20 THEN Y4 = 20 
4228 IF TlX4.Y4> t ) 9 THEM X2 

- X4Y2 - Y4: GOTO 4298 
4238 X2 - X4 V2 - Y4 

4248 MCXT I HOME POKE 763.130 
POKE ft) ti :-L'_ 778 HTAE 1 
UTAE 21 PRINT " IOUS GACHE2 Ut)i TORI 

LLES. "M« 

4243 G08U8 R88 HOHE 

4258 RETURN 

4298 IF DI i : C2 OP. PE =• 9 OR P 

> 10 TH£H *305 

4293 POKE 76S-139 POKE 769.3 
4383 HCOLOH • 9 =0R Al - 3 TO 1 
STEP - i FOR a; . 64 to i STEP 

- 1 POT. -2 SCALE- Al XDRAW 2 
AT 136.69 

1382 Kl ■ 'ZL> - 16336 I * PEEK i 

- 16336/ « PEEt. i - 16336' NEXT ki 
Al HTAB 17 1.-TAE 3 IF T>X2.Y2) 



: • •: then r i v- 
tab 22 Ppimt ■:.-: . 
: TOUCHE une MlrtE, -.a G0SU1 798 

HOME PETjff-. 
4318 IF fiX2.Y2 = * TH£r. -; = -; 

+ 109 Tl .-;> i'i ■ -3 EA a E- - I 

HTAE I "T-E =i INVERSE PRltT ZQ: 

-E ii " HORHAL PRINT Nl IOSjI "99 
HOME GOSUB 30-3 IGSUS 2000 RET.Rr. 

*320 IF TtXZ.fi * 3 THEN S « S 
4 50 T< K2 .2 ■ E« - EA - : 
HTAB 1 UTAB LI INVERSE PRInT 

LE " "■ HORHAL PRINT HI GOS'JB "CO 
HOME GOSUB 300 'OSUS 2008 RET.Ph 

4330 IF T. -12 t% " i THEN HTHl \ 

UTAE 22 PRInT -NE SACNE2 PAS IS TQS 

PILLES SUP DES NOIX DE COCO ' "N« 

'- GOSUB 788 HOME RETURN 

4348 IF TiJ.-2.V2' ■ 1 THE" T 2 12 

- O E - E - 1 HTAB 1 UTAB 22 
INVERSE PRINT "MAJEURE J ■: ids 

ne: DE COULEP UN DE UOS RAUITaILLE^RJ i 
'N* NORMAL GOSUB 700 HOME 

GOSUB 500 GOSUI 2088 RETURN 
4350 RETURN 

4308 REN OPTION MISSILES 
4393 IF P ■ 200 OP P l 20 THEN 

HTAB 1 VTAB 22 PRINT "TIR IHFOS-IIE- 
E A CETTE PROFOtDEuR - GOSUE 780 

HOME GOTO 4818 
4318 IF NH ■' - 18 THEN HTAB 1 

UTAE 22 PRINT "PAS ASSEZ D 'HOWIES PG 
UP EFFECTUEP Tie " GOSUB 780 HO«E 

GOTO 4O10 
4313 IF D<9> - 1 THEN HTAB 1 UTAB U 
PRINT -TPAPPES EN REPARATION. "N» 

GOSUB 700 HOME GOTO 4918 
4320 IF MI i 1 THEN HTAB 1 UTAE 22 

PRINT "PLUS DE MISSILES. "N« 

GOSUE 780 HOME GOTO 4019 
4338 IF TiXC.YC:' : THEN HOME 

HTAB 1 UTAB 21 PRINT "TIR [HPOSSIlL 
E, BATEAU A LA '.'EPTICALE* GOSUB 788 

HOME GOTO 4810 
4358 HOME HThE 1 UTAB 21 PPI"T -DM 

ECTION C1-8J ■" GET R» POKE 768,131 

POKE 769.28 CALL 770 INUEPSE 

PRINT Rf NORMAL 
4353 C2 - UAL I =* 

4569 IF C2 I 1 OR :2 :■ 6 then RETURN 
4379 RESTORE FOR I " I TO 26 

READ At, 62 NEXT I 
4338 FOP x? - 1 TO C2' READ XI. Yl 

NEXT .19 
4598 HOME HT..E 1 UTAE 21 INPUT "CHA 
RGE DE PROPULSION - Fl IF Fl , 8 

AND Fl : • Fij THEN 4683 
4600 HTAE 1 VTAB 21 PRINT - II NE REST 
E iJUE "FU" LITRES - COSUB 700 GOTO 459 
8 

4683 HOME KT-E 1 '.'TAB 21 PRINT "PRE 
SSER 'FIRE;. P0U8 LANCER MISSILE"; 

GET RI POKE 763-248 POKE 76? 20 

CALL 770 
4610 F2 - INT . Fl ■ 73 * 3 :■ 
4620 IF xc * xi * F2 ;■ 8 and XC 

* Kl I F2 t 41 and YC * Yl t F2 

> AND YC - VI t F2 - 21 THEN 4658 
4630 HTAE t UTAB 22- PRINT -MISSILE EC 

. INTROlE "•■! GOS -t "08 

HOME 
4648 HI ■ MI - I FU = Fi. - 

■ PU " 19 IF Fij ! 8 THeN PU =. 3 
4S43 HOME COSUB 399 :: 

RETURN 

4638 FOP X7 ■ 8 TO ?Z * 7 HCOLOP 

- 1 HPLOT 133 - ;7 * -.1 -■: - " 

1 Yl FOR G - 1 TO 58 "t' ' 

HCOLOR - "PLOT 135 * " * 

- 17 ■ FOR G • I TO 50 "E ' 
HEXT X7 

4653 HCOLOR ■ FOP Al « 3 TO 1 
STEP - 1 FOR -2 = 64 TO 1 STEF 

- 1 POT- A2 SCALE- Al <DR-iUJ 2 
AT 135 * X7 l u. 76 * «7 l it •■•■ 

- PEEK - 16336} t PEEu - 16736 
* PEEK i - 16336> ne:-;t a2.ai 

4668 FOR I ■ XC * XI * F2 - l TO XC 

* xi % P2 + i for j - ■■■: - Yl 

* F2 - 1 TO ,'C * VI > F2 - I 
4678 IF I : 1 OP I > 48 OR J = I 

OR J > 29 THEN 4738 
46S8 IF 1XI.J) "4 THEN EA » Ba 

- t S - S ■• 100 HTAB 1 ■ "-E Si 
INVERSE ' PRINT ■'CORUETTE COULEE ' 

HORHAL GOSUE 700 HOME OTTO 4740 
4699 IF T' I. J> ' 3 THEH S * i - 59 - c - 

» EA - l HT-E 1 UTAB ^2- INVERSE 
FRINT "CARGO COULE ! « " NORMAL 

GOSUB 798 HOME GOTO 4749 
4709 IF Ti I . J :■ - 2 THEN POKE 7\ 
POKE 769.29 CALL 770 HTAE 1 UTAB LI 
PRINT "UOUS AUEZ RASE UNE PARTES DE _'I_ 
E.".N» GOSUE 708 HOME COT] 4750 

4719 IF TCI.J) - 6 THEN HTAB 1 

UTAB 22 PRInT -UOUS AUEZ Eu U'.E MINE 
. "NI GOSUE 700 HOME GOTO *748 

4729 IFM.j:"l THEN POKE ?fi« 
POKE 769.20 CALL 770 HTAB I UTAE 22 
PRINT "UOUS UENEZ DE DETRUIRE UN DE 3S" 
.-RBUITAILLE'JRS "N» COSUE 780 

HOME GOTO 4748 

4730 IF T> I. j ; -5 AND F : 50 THEM 

HTAB 1 VTAB 21 print -VOUS VEn£2 OE 
PRENDRE VOTRE KIS8ILE SUS LE IfllN C 

E LA FIGURE. »NI COSUE 788 nOME 

GOTO 23999 
4748 Ti I, J' - 
4738 NEXT J, I GOTO 4648 
3988 REM TIR BATEAUX 
5098 FE - TIR - 8 
3188 FOP J ■ - 3 TO 3 FOR I > 

- 3 TO 3 

3193 IF XC • I ■ 40 OP XC * I ■ I 

OR YC * J I OP vC ■* J :■ 28 THEN 312 



3118 IF T(XC ■ 
■ TIR « 



I ■ YC - 



4 THEN TIR 



5128 HEXT I. J 

3139 IF TIR « THEN RETURN 

5158 IF P -.. = 18 THEN 3499 

5299 FE ■ FE * I IF FE > TIP OR Fl 

■ 1 THEN HOME RETURN 
5218 PC » P * HIT I PND (11 4 39' 

- INT i PND - I > I 38 :■ 
5213 INVERSE HTAE I UTAE 22 

PRINT "ENNEMI TIRE GRENADE-: SOUS- MAR I 
HES*' NORMAL GOSUE 788 HTHE 1 

VTAB 22 PRINT SPC> 35 :■ 
3228 IF PG ■■ P * 5 AND PC > P - 3 

THEN COSUE 5508 GOTO 5380 
3239 HTAE 1 VTAB 12 PRInT "HAH8UE " 

GOSUB 709 HOME 
5308 GOTO 5288 
5498 REM TIP lANQH 
5418 INUERSE HTAE I TAB 12 

PRINT -ENNEMI TIRE AU CANOW 

NORMAL GOSUB 788 HTAE I VTAB i: 

PRINT SPC< 28 > 
5428 FE ■ FE • 1 IF FE > TIR THEH 



HOME PETiJPr, 
5438 IF PHD C I > 3 THEN GOSUB 3689 

3448 HTAB 1 UTAE £2 PRINT "HANOuE "' 
■ GOSUE 789 NONE GOTO 5429 
3389 HTAB 1 UTAB 22 INVERSE 

PRINT -CHARGES DE PROFONDEUR" 

GOSUB 700 NORMAL HOME 
5608 FOP TT - I TO 5 POKE 49233.0 

FOR G = 1 TO 59 NE*T KK - PEEK i 

- 16336 '■ t PEEK ' - 16336: POKE 492 
32.9 FOP G > I TO 58 NEXT KK . 

PEEK i - 16336' * PEEK i - 16336/ 

NEXT TT 
3618 J ■ INT ■ PND ' 1 ;■ * 10 > * I 

IF Di J ■ THEN 3610 

3613 HTAE I UTAB 22 

5620 ON J GOSUB 5700.5710,5729 5730.574 
■ 5750 5760 . 5770 . 5739 . 5799 
5639 COSUE 700 HOME 
3639 I 



D< 5> 



D' 75 



D<9' 



5660 IF D :■ 3 mND P '.■ 30 THEN PRINT "u 

OULEZ-UOUS LACHER DE L'HUILE "" 
GET R» PRINT Rf IF R» - "0" 
THEN COSUE 789 IF RND - I > > 3 
THEN PRINT -LES BATEAUX ENNEMIS ..OUS 
CROIENT HORTS ' POP GOSUE 700 
HOHE RETURN 

3670 PRINT "LE TIP CONTINUE" COSuE 790 
GOTO 5420 

5708 0* I ;> " 1 FRINT "COMFAfiTIMENT TORFI 

LLES AUANT INONDE" HH » NH - 10 
PRINT "10 MORTS " RETURN 

3718 DC'2> ■ I PRINT "COMPftPTIHENT TORF! 

LLES ARRIERE INONDE" NH ■ NH - 18 
PRINT "19 HOPTS - RETURN 

5728 B<3) - 1 PRINT -ARBRE D'MELlCE EHO 

OMMAGE" NH - NH - 5 RETURN 

5739 0'4]' - l PRINT ■GOUVERNAIL EnDOMMA 
GE" ■ PPIHT "CHAHGEMENT DE CAP IMPOSSIBLE 

■ RETURN 

5740 IKS) * 1 PRINT -GENEPATEUR EnDOMMA 

GE- print -Butteries de secours ehccEnc 

HEES" NH " NH - 5 RETURN 

3738 D» 6 :■ * I PRINT -BALLASTS EHDOMM-GE 

S" NH - NH - 5 RETURN 

5768 Di7> - I PRINT "SONAR ENDOMW-CE- N 

H • HH - 3 RETURN 

3778 DCS) « I PRINT -PERISCOPE EnDOmhAC 

E" HH « NH - 5 PETURH 

5788 Di 9 :> " 1 PRINT -TRAPPES MISSILES B 

LOOUEES" NH * NN - 5 RETURN 

3798 D'lO^ = 1 PRINT "MOTEUP NUCLEAIRE 

INONDE" PRINT "PLUS DE PUISSANCE ■ P'J 

- 30 NH " NH - 29 RETURN 
6000 REM DEPLOYMENTS CORVETTES 
6868 NN - [NT I RnD i 1 > * i CH - 3 '■ V 

* 1 

6108 FOR I - NH TO nn * 3 IF T< GXI I.C 

■ ■ I ' ■ :■ 4 THEN 6168 

6120 GOSUB 6408 IF GX< tl • U < I 
OR GX' I > * M :■ 40 OP CY> I ■■ - U 

< I OR GYi I ) * U > 29 THEN 6120 
6149 ON Ti GXi I > * N.GYt I > + u> * l 

GOTO 6158.6120,6129 6120 ■6:2-'' S188 61 
98 

6138 t, GX< i > - h.cv, [> ♦ V) ■ « t :. ; ■ 
Ci'i I :■ ■ ■ GXi I .■ - GM< I) » U GY< I ■ 

- GYf I> . u 

6160 NEXT I COSUE 2808 RETURN 
S188 IF P : 10 THEN HOME MTnB 1 

UTAE 22 PRINT -UOUS (hUEZ ETE EPEPONN 
E PAR UNE CORVETTE UOUS COULEZ. 'Hi E- 

- BA - 1 COS'JB 708 GOTO ^30^0 
6189 GOTH 6169 

6198 HOME HTAB 1 UTAE 22 PRINT H COR 

VETTE DETRUITE Par une MINE" EA - EA 

- 1 Ti GX' I >.GYI I :■■ - O T. GXI I :■ 
+ UI.GY' I> * 0> - COSUB 790 
HOME GOTO 6160 

6280 REM DEPLACEMENT CAPGOS 

6220 NN » INT i RND i 1 > * CCA - 3>J 

* 1 

6239 FOR I = NN TO NH * 3 IF T<C-<< I j . •; 
Yr I >) c > 3 THEN 6308 
6248 GOSUB 6438 [F EX< I > -* H < I 
OR CXi I > . u ■ 48 OR CYi I :• + U 

< t OR CYi I > * U > 20 THEN 6249 
6269 ON T<CX< I :■ « H,CY< I > ♦ u> . i 

GOTO 6239 6249, 6248. 6249. 6249. 6728. 63 
48 

6289 T. CM" I> • H.CYi I :■ * u :. ■ 3 T< CX< 1 >. 
CY(I>> ■ 8CX(I> - CX(I> * U CYH> 

- CYt I > * V 

6389 HEXT I HOME GOSUB 2000 

RETURN 
6328 IF P ( 10 THEN HOME HTAB I 

UTAB 21^ PRINT -UOUS AUEZ ETE EPEROHH 
E PAR UN CARGO. UOUS COULEZ. "N» EA 

- BA - 1^ COSUB 799 HOME GOTO 2308 
8 

6339 GOTO 6399 

6349 HOME HTAE 1 UTAB 22 PRInT 'CAB 

CO DETPUIT PAR UNE MINE" BA ■ BA 

- 1 Ti CXc I>.CY< I>> ■ 8 T(CX( I> 
■» W.CYl I> * U> - 8 GOSUE 709 
HOME ■ GOTO 6389 

6409 RESTORE FOP J - 1 TO Z€ 

READ AL.AZ NEXT 
6429 FOR X9 " 1 TO IHT i RND '1/ 

* 8} * 1 READ U.U' NEXT XO 
6449 RETURN 

6309 REM REPARATIONS 

6319 IF PHD < I ■ ' 6 - ' ' P ' 18 :■ 

•' Z> THEH RETURN 
6548 X8 ■ IHT « PND i I ■/ * 18 > + 1 
6330 IF B<X8) - 9 THEN RETURN 
6379 POKE 763 228 POKE 769.20 

CALL 778 
6388 HTAB 1 UTAB 22' INUERSE 

SPEED- 59 PRINT HlD*iD».<X9 

% 18) - 9,18.," OK" SPEED* 253 

NORMAL COSUE 798 HOME 
6699 01X81' - 9 
enza RETURN 
10009 REM RECLES 
19189 HOME PRINT "BIENUENUE A EORD DU 

SOUS-MARIH NERKA 
18289 PRINT PRINT "EOUIPACE 90 M-PIN 
S 10 OFFIC 

IERS* 
19399 PRINT PRINT "MODE DE PROPULSION 

NUCLEAIRE" 
19489 PRINT PRINT "ARMEMENT 3 HESSI 
LES MER-MER 28 TORPI 

LLES- 
10589 PRINT PPIHT 'PPOFONDEUP MAXIMUM 

689 METRES" 
19688 PRINT PRINT "EQUIPEMENT SONAR 

ET RADAR < SURFACE)* 
19799 PRINT PRINT "PPOFONDEUP TIR M 
ISSILES (29-209> T 

OPPILLES <9-28:'" 

18398 PRINT PRINT PRINT "TAPEF LB T 
OUCHE COPRESFONDANT A LA MANOEUVRE 
CESIREE OU UNE AijTPE TOUCHE POUR POURS 
UIURE LE JEU" 
10990 PRINT PPIHT "OK ?' GET P» 

POKE 768.130 FOKE 769,29 CALL 779 
HOME 



Suite page 19 



AUTO-ECOLE 



Revisez te code de la route et la geographie avant de vous 
lancer, sous I'ceil vigilant mais bienveillant de votre ORIC, 
dans ce long periple a travers la France. 

Serge MOTTE 



> Hlf1En«9?FFOlnNCI5)!OiriW»tJ5) 
B FOR 1=8 10 ]0:NI(I) = " ',' :NEXTJ 
9 N[0J = 1800000 :"AP£R5 :tNK4:G0T0 1 5091 
18 X=3B 

12 CLS 

13 INK4 

15 PRJNT"ATTENTION ! UOUS 0EnARRE2 . 




20 r=i20 

30 0=4 



TSAGE ,_*■>» 

ov^ c 



40 Xl-30 

95 REn 

96 REfl 

97 REn DES5IN OU PATSAGE 

98 REn 
93 REn 
100 HIRES 

1 81 1NK2 

182 CURSE I 10, 

183 DRAU 220.0 

184 B2=B2'18 

185 A=A-I :PRINT" U1TESSE 

186 PRINT' ' i :PR1NTFSPC(I2)B2 
103 IF A = l THEN A=4 

110 CURSEI 20, 190,0 

111 IF X<48 THEN X=48 

120 DRAU X-20.T-190. 1 

121 DRAU 0,-5,0 

122 DRAU 0,5, 1 

138 DRAU 238-X, 19B-T, 1 

132 GJRSET X. 40, 50,0 

133 CIRCLE 18, ] 

134 CURSET X'28,48,0 

135 FILL20.1.3 

138 CURSET Xt!0,r,0:ORAU 0,-7,1 
0, i ;orau 8,-7, i :drau 2,-5,1 



. : 



i+[l-190J*AVS 



A)VA,] 



158 DRAU 0, C-40 

155 GOTO 1000 

1B2 G-RNDCI) 

103 IF G<.S THEN F-F*l ELSE F=F-| 

164 IF F<70 THEN F=F*10 

170 IF A=! THEN A*4:B=RND(1 J 

190 XI-X1.49 

182 IF XJM90 THEN Xl'-!60 

185 IF X<45 THEN X=50:X1 = 50 

190 X=ABStXI 1 

208 GOTO 180 

995 REn 

996 REn 

997 REn DE3SJN DES ARBRES 

998 REn 
599 REn 

1880 DRAU -15«[5-dJ/ft,- I5»C5-A)/A,J 
1018 DRAU 15«C5-AVA,-30*(5-A)'A,l 
1020 ORAU 15*C5-AVA, 30*C5-A}.-A, 1 
1040 DRAW -IStCS-AVA, 15*(5-AVA, 1 
1850 CURSET X,Y,0 
I860 DRAU II00-X)'9,C180-Y)/9,0 
1070 DRAU [100-XW.l I80-TJ/7, 1 
10B0 DRAU 1188-X)'5,(180-TJ^5,8 
1890 ORAU (188-XJ'3, [ 180-TV3, 1 
1100 HIRES 

1118 IF lNTC19*RN0(l)lO4THEN 162 
1128 PING 
1130 GOTO 5000 

1995 REH 

1996 REn 

1997 REn 0ESS1N D'UNE UILLE 
199B REn 

1999 REn 

2000 HIRES:INK6:CUR5ET 19,',9=DRAU 2?8,0 
,1 

2810 CURSET S0,!98,8:ORAU 1 10, r-190, 1 :DR 

AU 118, 198-Y, I 

2020 CURSET 48,T-58,0 ■ 

2030 FILL 50.3,17 

2043 CURSET 66,r-79,0 

2050 FILL 70,4, 18 

2068 CURSET 90, T-88,8 

2070 FILL 80,2,13 

2080 CURSET 10B,T-100,( 

2890 FILL 100,3,28 

2188 CURSET 140, 1-100, i 

2110 FILL 180,2,16 

2128 CURSET I60,r-80,0 

2130 FILL 60,2,21 

2140 CURSET 180,1-60,0 

2150 FILL 60,1,22 

2160 CURSET 200,1-60,0 

2170 FILL 60, 1, 16 

2188 RETURN 

3120 EXPLODE 

3135 UAIT300 

3608 K-3:KM"ALL!ER": 

3605 K-l lK»*"BHr *H0" 

ETURN 

3610 K*6:K«» "ALPES nARITinES" 

RETURN 

3615 K=2:K«="AI5nE" :h*='"LAQN" -'RETURN 

3620 K»?:K*»"AR0ECHE'":M*="PR1UAS" :RETURN 

3625 K-4:Ki="ALPES OE HAUTE PROUENCE"-H» 

*'DIGNE' -RETURN 

3630 K=9:<»=- ARIEGE" :Ht = '=OIX" :RETLtRN 

3635 K-5:K«='HAUT£S ALPES' :H*=D1GNE" :RE 

TURN 

3640 K*10:K«="AU8E":H«=" TROVES" :RETURN 

3645 K=B:K« = ' ARDENNES' :H»="CHARLEUIILE n 

EZIERES' RETURN 

3650 K=12:K« = "'AUEYR0N" :H»=" R0DE2" RETURN 

3655 K-l 1 :K»="AUDE" iH*="CARCASSONNE" :RET 

URN 

3660 K-]4:K»*'CALUAD0S" :h«=' CAEN" :RETURN 

3665 K=I3:K4="B0UCHES DU RHONE" :H«="nARS 

ElLLE" : RETURN 

3670 K-27:KI = "EL1RE" :M»*"EUR£UX" :RETURN 

3675 K=15iK»-"CANTAl" :H« = ,, AURILlAC" :RETU 

RN 

3680 K=32:< 

3685 K-I6;X 



:"N1CE" 



3698 K*10«4*' ChER" :Hi=BQURGES :«E*URN 

3695 tt=l7;K*=- CHARENTE MARHlnE :H»- LA 

ROCHELLE" RETURN 

3700 K = 24:K»=" DORDOGNE" :Ht> ■ "ERIGUEUX" -<f 

E'URN 

3385 K*19:<t=-' C0RRE2E" SH»= 'ULLE" ^RETURN 

3310 K=36:K4^"IN0RE' :h«=:"CHAT£AUROUX :RE 

TURN 

3715 K=20 ;«»= "CORSE" :H«-"AJACCIO" iRETUR 

3728 K=45:*t*"L01RET' ^••'ORLEANS' :R£TUR 

3325 K=21 :Kt="COTE O'OR" iHt-"D] JON' 'RETU 

RN 

3730 K=B0:«t = ' SOnnE" :H* = ' AnIENS" :RETURN 

333S K=22:Ki = "C0TES DU NORQ" :H» = SAINT B 

RIEUC" RETURN 

3740 K=67iK«-"BAS RHlN" :HI= STRASBOURG": 

RETURN 

3745 K=23!X» = 'CREUSE" :H*=" GUERE T " ^RETURN 

3350 K = 79:X«="0EUX SEURES" :H« = " NIORT " :RE 

TURN 

3755 K-25:K«*"D0UBS" tH»-' BESANCON" :RETUR 

3768 K=69:K«="T0NNE":Ht="AUXERRE" iRETURN 

3765 K=26:K*="DRDnE" :H«="UALENCE" ^RETURN 

3770 K=52:Kt="MAUTE nARNE :H« = 'CHAUnONT "" 

IRE TURN 

3375 K=2B'K«="EURE ET LOIR' :H4= "CHARTRES 

"JRETURN 

37B0 K=5B:k»»"NIEURE" :H*-"NEUERS" -RETURN 

3785 K=29:K««"FJNISTERE":H«="QuinPER":RE 

TURN 

3790 K=B5:K«-"HAUT£S PYRENEES ' :H»=" TARBE 

S" ^RETURN 

3795 K=38:K«="GARD" :H«="NlnES" ^RETURN 

3B00 K=31 iKi-'HAUTE GARONNE" :H*-"T0UL0U5 

E" RETURN 

3805 K=32:tC«""GERS" ;Ht = "AUCH" :RETURN 

3810 K=33i««="GlRONOE":H«="B0ROEAUX" :RET 

URN 

3815 K=34:K«-"HEKflULr:H«."nONTPElLIER": 

RETURN 

3828 K»35:K»=' !LL£ ET U1LA1NE" :H»-"RENNE 

S"; RE TURN 

3825 K=33:K«="InORE ET LOIRE" :H«="TOURS" 

-RETURN 

3B30 K=38:k*."ISERE":h«=>"GREN0BLE":RETUR 



:="LONS LE SAUN1ER" 
H«-"nONT DE nARSAH 
If'BLOlS" :R 
riENNE": 



3B35 K=39:K»="JURA"!Hi 
^RETURN 

3948 K-40;K«-"LANO£S" 
" : RE TURN 

3845 K=41 ;««="L01R ET CHER" 
ETURN 

3850 K=42:Kt-' LOIRE" :H»<*"SAINT ET 
RE TURN 
3955 K-43;Ki="HAUTE LOIRE" ;Hf="LE PUT DE 

OOnE":RETURN 
3860 K=44:K*='L0IRE ATLANT IOUE" :H»="NANT 
ES" ^RETURN 

3B65 K=46:«« = ' LOT' :HM'CAHORS" :RETURH 
3870 K=47:K«-"L0T ET GARONNE" :Ht»"AGEN" : 
RETURN 

3B75 K=-4B:K* = 'L02ERE"iH» = "nENDE' RETURN 
3880 K=49:Ki = "nAINE ET LOIRE" :H«»"ANGERS 
" :R£TURN 

36B5 K=5B;«t = "nANCHE" ;H«s"SAINT LO" :RETU 
RN 

3898 K=51 :K«='nflRNE" :H*="CHALONS SUR HAR 
NE" ^RETURN 

3995 K=5^i»<•='■nArENNE■■-H* = "l.AUAl■■ ^RETURN 
3900 K=S4:K«^"nEURTHE ET nOSELLE" :HI="NA 
NCT" : RE TURN 
3905 K=S5:t«="nEuSE" :H« = "BAR LE DUC" :RET 



URN 

3919 K=56:K«-' 




'^":H• = 'UANNES , ■ :RETU 
RN 

3315 K=57:K« = "nOS£LLE":Ht = "nET2" :R£TURN 
3928 K=59:K«'"N0RD":Ht="LILLE" ^RETURN 
3925 K=60 '<••■ 01 SE" :H«= "BEAUUAIS" ^RETURN 
3930 K=61 :K«'"ORNE" :h«."ALENC0N" :RETURN 

3935 K=S2;K»-"PAS OE CALAIS" :H»= "ARRAS" 4 

RETURN 

3348 K^eSiKt-'-PLT OE OOnE" :H«-"CLERnONT 

FERRAND" :RETURN 

3945 K=64:«»-"PYRENEES ATLANT 1QUES" -H» = " 

»AU" ; RE TURN 

3950 K»66 :KI = "PTRENEES ORIENTALES" :H*»" 

»ERP1GNAN":RETURN 

3355 K=6B;«»="HAUT RHIN" rH«="COLnAR" :R£T 

URN 

3969 K=69!K«="RH0NE";H*="LY0N" :RETURN 
3365 K-79;K»*'-HAUTE SAONE" :h»="UESOUL" :R 
ETURN 

3970 K=?l :K«-' SAONE ET LOIRE" :H« = "nACON" 
'RETURN 

3375 K=?3:K« = "SAU01E" :H» = "CHAnBERY" :R£TU 

3980 K = 74:Ki»"HAUTE SAU01E " ;H»-' ANNECT" : 

RETURN 

39B5 K=76:K«="SEIn£ nARI T IflE" :H«="ROUEN" 

: RE TURN 

3998 K = ?7:K» = "SE1NE ET nARNE" :M#-"H.ELUN" 

: RE TURN 

3935 K»;W'K«-"YUEtINES*:H»-"UERSAILLES": 

RETURN 

4000 K-81 iKt' TARN" ;H«a"nLB]" :RETURN 

4085 K=82:Ki-"TARN ET GARONNE" -H»=nONTA 

UBAN" :RETURN 

4810 K=83:K* = ' UAR" :H* = "ORAGUIGNAN" :RETUR 



JRN 

■:.'.■.' 






"UAUCLUSE" 



■85:K«-'u£nDE£' 
IN" RETURN 
4025 K=36:«« = ' u.'ENHE 



RET 



-;■ 



= -'SARTHE' 
•"CHARENTf 



LE nANS" :RETUR 
1= ANGOULEnE" :R 



4B39 X = 87ii 

:RETURN 
4035 K=88:i 



'"AU1GN0N' 
LA ROCHE SUR 
'POITIERS 
"'MBUTE WIENNE ;H*''LlnOGES' 



•"UOSGES" :M«--EPINffl. :RE"URN 
■ESSONNE' :H*='EURY' :RETURN 
: 'HAUTS DE SEINE" ;Ht = 'NANTES 



R£' :RETURN 

4059 K=93!<«- SEINE SAINT DENIS :H*= 901 
IGNT' ^RETURN 

4355 K=9«:<«= 0A,_ DE nARNE IN** 1 CRETEli. 
:RETURN 

4060 X=95:<«= UAi. D'OISE 1 --t- '■ 
RETURN 
4100 GC-C140 
5000 H5=RN01 1 ) 
5918 IF H5>.25TH£n 8808 
?322 H7-IN1 :44*H5*1 I 

IKI 



5195 REn 

5196 REH 

5197 REl DESSIl- 

5198 REl 

5199 REH 

5289 GOSUB 10000 

00 

5259 GOSUB 10000 

00 

5300 GOSUB 10000 

00 

5350 GOSUB 18609 

5409 GOSUB 10598 

98:GDT0 6080 

5459 GOSUB 18500 

00 

5500 GOSUB 10300 

5550 GOSUB 18380 

5600 GOSUB 10998 

00 

5650 GOSUB 18090 

00 

5700 GOSUB 18000 



3ES PANNEAu* 



GOSUB 12000H 



GOSUB 12290:<J-16iGOTO60 



GOSUB 12400:W=1B:GO-Q60 



U=12;GOSUB11300:GOTO 68 

"2:G0T0 6800 
i = 13:GOT0 6B09 
i±10:GOSUB12600:GOrO 60 

'=11 :GOSUB11900:GOTO 60 

y>3:GOSUB10030:GOTO 600 



6921 INK4 
8022 PAPER5 
5030 PRIHT:PR1NT 

6040 PRIHT" 1 DEnl-TOUR INTERDIT" 
6050 PRINT" 2 SENS OBL 1 GATOIRE " 
6860 PRINT" 3 DANGER PARTICULIER" 
' 4 SENS G1RATDIRE" 
' 5 DESCENIE DANGEREUSE" 
' 6 INTERDICTION OE TOURNER A 



6889 PR IN 
6090 PRINT" 
GAUCHE " 
6100 PRINT" 
6110 PRINT" 
6128 PRINT' 
6138 PRINT' 



' PASSAGE POUR PIETONS" 
J INTERDIT AUX CTCLISTES' 

9 ARRET 0BL1GATOIRE" 
"IB ATTENTION SORTIE D'ECOLE" 
6)48 PRINT"! 1 INTERSECTION DE 2 ROUTES. 

PRIORITE A DRO! 
TE" 

6158 PRINT"12 STATIONNEnENT INTERDIT" 
6160 PRINT"I3 ANNONCE D'UNE ROUTE A GRAN 
OE CIRCULATION" 

6170 PR]NT"14 CHAUSSEE OEFORnEE" 
6180 PRINT"15 SENS INTERDIT" 
6190 PRINT"16 U1RAGE DANGEREUX A DROITE' 
6209 PRINT"17 LA ROUTE A GRANDE CJRCU1AT 
ION COUPE UNE ROUTE SECON 
DA I RE" 

8218 PRlNT'lti ulRflGE OnNGEREUX A GAUCHE" 
6318 PRINT :PRINT 
6328 INPUT"UOTRE REP0NSE'.u2 
6325 G2=2008 
6327 INK4 

6339 IF U2 - U THEN 9900 

6340 GOTO 9950 
6435 REn 

6496 REn 

6497 REn PASSAGE OEUANT UN RADAR 
6438 REn 

6433 REn 

6509 HIRES:[NK5:X=70:CURSET 19,70,0:DRAU 
220,0,1 :CURSET 19,199.0 

6510 DRAU 60.-88, I -DRAU 60, -30, 1 :QRAU 60 
, -10, 1 :DRAU -49, 15, 1 lORAUI - 

20,30,1 

6520 DRAU 68,75, 1 
35,0,l:ORAU 0.19, 
6539 ORAU -35,0, : 



: CURSET 



|S8i0:WMU 



:DRAU 0,-18, 1 :CURSE' 



8,)60,0:ORAU IS, 29, 1 =ORAUl - 
30,0,0 

6549 ORAU 15,- 
ANT UN RADAR" I 
5999 

6550 PRINT"UOTRE UITESSE EST DE 



UITE'iUAIT 2 
'RJNT'nALUS OE 5999 POIn 
TS " 

6580 F = 10:UA!T I09:GOTO 9955 
6599 PRINT'BONUS DE 5008 POINTS " :UAIT 1 
00:GOTO 9305 

8000 IF H5>.95 THEN 9599 

8001 IF HS>.9 THEN 6500 
8BB2 IF H5J.99THEN 9700 
8004 REn CHOIX DU OEPARTEnENT 
B005 H6=INT:93*RND(11»I) 
8006 REn CHDIX DE LA QUESTION 
B007 H7=INT(6*RND[l]'l) 

9008 82* 1909 

B019 IF H6M8 THEN B013 

B011 ON H6 GOSUB 3698,3685,3618,3615,362 

9, 3625, 3638,3635, 3640, 3645 

3812 GOTO 8048 

B013 H6=H6-I0 

B014 IF H6>10 THEN 8017 

8815 ON N6 GOSUB 3650,3655,3660,3665,36? 

0, 3675, 3880, 3685, 3699, 3695 

3016 GOTO 8048 

8017 H6=H6-18 

8018 IF H6M0 THEN 8021 

8019 ON H6 GOSUB 3309,3705,37:0,3715,372 
0, 3725, 3730, 3735, 3740, 3745 

8020 GOTO 804B 
882! H6=H6-19 

8922 IF H8M0 THEN 8025 

8023 On H6 GOSUB 3758,3755,3760,3785,337 

0,3775,3708,3785,3339,3795 

B924 GOTO 8049 

8025 H6-H6-I9 

8926 IF H6>)0 THEN 8030 

8027 ON H6 GOSUB 3809, 3B05 , 381 8, 381 5, 382 

3.3B25,3B30.3B35,3849,3B45 

9028 GO'O 8848 

8038 H6-H6-:3 



8931 l- H6>;3 THEN 8034 

9832 ■ IB - <r*6B, 3865,38? 

^-■0,369S 
9033 30"3 B046 
803- H5=MB-IB 

16) 19 THEN 8838 

SOfiUB 3900.3905,3910,3915,332 
3, 3925. 3939, 3=)3^. 3940, 3gd5 
SB37 GOTO B048 
803B h6=h6-19 
3039 IF H6>:0 TmEn 6042 
9040 ON H6 GOSUB 3950,3955.3360,3965,397 

IBB ■ 190,3935 

3041 GOTO 8048 
8042 H6=H6-!0 

nana then 8046 

9044 ON H6 GOSUB 4308,4005, 1010,4015,402 

9,4025,4030,4035,4840,4045 

6045 GOTO 804B 

8B46 H6=H6-19 

8047 ON H6 GOSUB 4050,4055.4060 

804B GOSUS 2000 

8050 ON H7 GOTO 9180, 8200, 8300, 8400, B500 

,8600 

LIE 



8105 INPUT' QuEl. EST lE NOn 0£ CE OEPARIE 

hen! ;i* 

8120 IF H-K* then 9900 

8125 GOTO 9950 

8280 PRINT'UOUS ARRIUE* DANS LE ."hEF-l!E 

U DU DEPARTEnENT NunERO 

9210 1NPUT-QUELLE EST CETTE J|LL£ ";1« 

8220 IF |MH* THEN 9908 

8230 GOTO 9959 

B308 PRINT'UOUS ARRIYE2 DANS LA UILLE DE 

: ":PRINTh« 
B310 INPUT'QUEL EST LE NunERO OU DEPARTS 

HENT: |E 

9320 IF E=K THEN 9900 

B325 GOTO 9950 

B400 PRINT'UOUS ARRIUE? DANS LA UILLE :" 

B410 INI DUEL EST lE NOn DU DEPARTEnEN 

T";l« 

8415 G2=I000 

8420 IF l*-K« THEN 9380 

8438 GOTO 9350 

B508 PRINT'UOUS ARRJUE! DANS LE OEPARTEtt 

ENT .•■ :PRJNTK« 

3510 G2=!000 

8520 INPUT'QUEL EST SON NunERO ;E 

8530 IF £=K THEN 9308 

8540 GOTO 9950 

8600 PRINT'UOUS ARR1UE? DANS LE DEPARTEn 

ENT ' 

8610 PR1NT«« 

9615 G2=1000 

B620 INPUT'QUEL EST SON CHEF-LIEU" ;£« 

9630 JF E*=H» THEN 9300 

8649 GOTO 3350 

95B9 TEXT 

3510 EXPLGDE 

3528 GOTO 14000 

9525 REn 

3326 REn 

9527 «£H FIN DE LA PAHTIE 

9528 REn 

9529 REH 

9530 PR1 



■JENE2 D'AUOIR UN ACCIDEN 



9535 UAIT II 

9540 PRINT-l 

9550 PR IN 

9560 UAIT 500 

9565 GOTO 20009 

9570 PRINT' UOULEZ-UOUS REJOUER ?" ;&ET Et 

95B0 IF E»«-0' THEN B2-0 :HIRES :&OTO1560 



9590 END 

9695 REn 

9636 REH 

9637 REn OESSIN DU CARREFOuR 
3638 REn 

9639 REn 

3700 HIRES;]NK6 :CURS£T 10,99,0: DRAU 22 

0,0.1 

9781 rl = -20;CURSET 20, 1 98, :QRAU 40,2*Y| 

. 1 :DRAU -49,9, 1 :QRAU 0, Y1,0 

, :DRAU 40, 



3710 DRAU -40,9,l:DRAU 40, -2*Y1 , 1 :CURSET 

28,30,0:ORAU 68,-60,i:DRAU 

30.40,1 
9715 DRAU 50,-58, I :DRAU 50,70,1 
9720 PRINT"UOUS ARRIUEZ DANS UN CARREFOU 
H" iMftlT 200 

9330 PRINT'QUELLE DIRECTION PR£n£2-U0US" 
-'UAIT 209 
9340 PRINT" 1 A GAUCHE 2 TOUT DRO 

9760 PRINT" 3 A DROITE' :GET £* 

9730 E=UALCEt) 

9795 G2 =3800 

9909 H=INTC3«RNDt 1 )»1 3 

9B10 IF E-H THEN 9900 

9820 IF H=l THEN PRINT'X'ETAIT A GAUCHE" 

9B30 IF H-2 THEN PRINT' C'ETAIT TOUT DROI 

9840 IF H=3 THENPRINT'C'ETAIT A DROITE" 
9860 GOTO 9959 

9895 REn 

9896 REn 

9B9? REn CAS OU lA REPONSE EST BONNE 

9898 REn 

9899 REn 

9988 PRINT'EXACT BONUS ' lG2i POINTS" 

9905 PING:UA]T20:P1NG:UAIT 20 :PING :UAI T2 



H T 101 



9910 I 

9911 CLS 
3912 INK4 
9320 B2=B2*G2 
9930 GOTO 180 
9945 REn 
3346 REn 

9347 REn CAS OU I 

9948 REn 

9949 REn 

9950 PRINT'TAUX . 
9955 2AP 

9960 UAIT |80 



REPONSE EST FAUSSE 
. . HALUS ' ;G2i "POINTS" 



Suite page 12 



GALACTICA 



Par unetrangephenornenede generation spontanee.des 
meteorites surgissent du vide interplanetaire en decrivant 
des courbes folles a I'assaut de la Terre. DVR, DUR ! Votre 
SPECTRUM vous demande de balayer d'urgence toutes 
ces petites pierres, grace a votre balai a laser. 



David DOSSOT 

SPECTRA 




, AT ( I ti» ,2) ) + 
4B3 BEEP .01 
PRINT AT 



i AT 



-iQ3 IN 



I (a , 2) 



, -4© 

MB,2) ,CI»,£) 

i,c m,at;" 



decrivant 

na i res " 



410 FOR n =0 TO 20 STEP 5 
416 FOR O =© TO 1: OVER O 

420 IF ee-n,0 THEN PLOT ec-n,dd 
PLOT (ee-ni +1 ,dd 

421 IF ee+n<255 THEN PLOT ee tn , 
44: PLOT iee+n>-l,dd 

423 IF dd+n;l?5 THEN PLOT ee,dd 
♦ n-. PLOT ee,(dd+n)-l 
42* IF dd-n>0 THEN PLOT ee,dd-r. 
PLOT ee , ldd-r>) +1 .„_._.- - 

425 IF ce-n^0 AND dd-n»B THEI 



lot ee- 



dd -n 



.£55 RND dd+n<175 TH 

, dd+n 

(235 RND dd-me TMffN 



(175 THEN 



3 308 



6 LET ha=0 

7 OUEP 

6 BORDER ; PAPER 0; CLS 
9 GO SUB 6000 

10 REM ******♦********»■***- 

11 REM *# GRLRCTICA © 1983 

12 REM ** © D05SOT David 

13 REM (tHHtH**ttlftfH 

14 REM INITIALISATION __ 

15 LET •■*"■£": LET b«s"V 

16 DIM I (10)7 DIM 1(10,2): DIN TO 2? 
C (10,2) FOR n = l TO 10: LET 1. tn 

,2) = 2: LET Ctn,2)=n*3: LET z(n) = 
3KINT (RND#S) ) : NEXT n 

17 FOR n = l TO IB- PRINT AT L in 
,2) , c (n ,2) ; INK i(ni;*t,PT (Ltn, 
2) ) + 1, C (n ,2) , INK Z(ni;b»: NEXT 



:F INKEY« = "0" RND bfl THEN 
>-b-l: PRINT RT 19, b; INK 6 
PRINT RT 19,b+l;" : GO SU 



97 NEXT g 

96 PRINT RT i.i».2i ,cd,Si ." 

T ( I (a ,2) ) ♦!, C (■ ,2) i " 

99 GO SUB 200 GO SUB 500 I G 

-i 2? 

100 REM MOUUEMENT RDUER5RIRE 

120 PRINT RT L (»,2) , C (M ,2) ; " 
;AT (I tn ,2) ) *1,C (■ ,2) ; " 

122 READ xx ,yy 

124 LET I t» , 2) =XX ■ LET C (■ ,2) 



LET b = 15 



i. (■ ,2) 



11 iiT fl'1 

T 1; c«; RT 21 . 

c* 



* 1 . 



22 GO SUB 200 

27 LET a=l+(XNT (RND«10)> 

28 RE5TORE 9540+(a*10> 

29 FOR g=l TO 10 

30 FOR t =0 TO di / 

31 PRINT RT 19, b. INK 5; "A" 
- IF IKKEY«="0" AND b)»l THEN 

b-b-1: PRINT RT 19, b; INK 6 
PRINT RT 19,b«l, - " 
_ IF INKEY*="P" RND b < =30 THE 
LET b=btl; PRINT RT 19 , b; INK 
;"»"l PRINT RT 19,b-l;" 

43 IF TNKEY»="Z" OR INKEY»=' - Z" 
THEN GO 5UB 300 _ _ 

45 IF INKEY«="P" RNO b < *30 THE 
: LET b-b+1. PRINT RT 19, b, INK 
.,■•*" PRINT RT 19,b-l." ! OO S 
iB 300 



,«. 



150 RETURN 

^00 >REM IMPRESSION Du 3CORE 
='1B PRINT RT 0,2; T.NUERSE 1 i IN 
K 7 , 'SCORE *' , a , INUERSe 0; •' " , 
RT 0,17, FLRSH 1, INK 6; "Hi SCOR 

E •• ; ha ; flash ©; •■ 

£20 PRINT RT 1,10; INK 7;"VICS 

230 RETURN 

300 REM TOUCHE ? 

302 INK 7 

305 PLOT *S*b> *i 

"86 BEEP .01,20 

3 10 PLOT OOER 1 ; 
U OUER 1, , 117 

1>S© INK a 
3B0 IF b=C (n ,2) 
MEN GO TO 400 
390 RETURN 

400 REM BOOOM > 

401 LET dd=(RBS 
1 ' > -9> LET ee= \.i 

402>PRINT RT I (I 



426 IF 
EN PLOT eC' 

427 IF ee- 

PLOT ee +n ,ae-n 

42S > IF le-n >0 RND 

PLOT ee -n , dd -»n 

429 NEXT O 

4 40 NEXT n 

460 OUER 0: INK S 

401 PLOT OUER 1, ee , dd 

49© RESTORE 954B+<104*) : TOR y = 
1 TO 10 READ ia,lb. BEEP .006,1* 
a. BEEP .005, Kb NEXT y 

491 LET a =a +20: GO SUB 20© 

499 GO TO 27 

500 REM CRRSH TERRESTRE 
505 BRIGHT 1 INK 2 

SIB LET C» (C (M ,2) +1 TO c (m , 2) + 2 

■sir- 

T l; 
c] 

S3S BEEP .5,-3© 

540 LET V«V-1 

545 IF V <=© THE 

546 GO SUB 20© 
560 INK 5; BRIGHT 
560 RETURN 

2000 REH FIN DE PRRTIE 
3001 BRIGHT 0: INK 7 
2010 PRINT RT 1,10; INK 

1;"UIE 0" 
202© FOR n=B TO 22. PRINT RT IB, 
r.;" GRME OUER": BEEP .81,11: NEXT 

n: FOR n-22 TO 31 PRINT RT IB, 
n," " . BEEP . l,n: NEXT n 
2B25 IF a>ha THEN PRINT "NOUUERU 

HIGH-SCORE r It " 
2030 IF a >ha THEN RESTORE 9568 ■ 
FOR n«l TO 1©- RERD Ba.Bb: BEEP 
!!,■•: BEEP .81,1b. NEXT n: LET 



CPAU 8,117 



[3*b> +4 ,24 : 



OR b-l=c ( 



I 175- IB* (K (» ,2) 
l (C (■ ,2) ) J +B 
.2) , c (m ,2) ; "SP: 



ie* eourbe 

■3050 > PR INT " L6S »t '. eo r i i.fes ionl 
bien ranges en haul de lecrin. 

Q'jand iLs attaquent.iLs laisiim. 
un vide at attention ! IL peuue 

NT RESSURGXR DU UIDE OU ' ILS ON L 

fllSSES" 

9055 PRINT "4 ERREURS , PRS PLUS I 

•3060 INPUT '"ybolez voos l* ti* 
'.mg du prograMBe suf uprmnti 

->(0^N) -; z« 
6061 IF z»="0" OR z$="0" THEN LP 
RINT "LISTING -> PRESSEZ UNE TOU 
CHE": PftUSE 0: LL.IST 

5070 PRINT "POUR COMMENCER PRESS 
EZ -G-" _ 

3071 IF INKEY«<>"G" RND INKEY«<> 
"a" THEN GO TO 6071 
6072 CL5 - PRINT "q . . . g-SU C he " , "O 

+CRPS SHIFT ...gauche+tir p . . . u 

roile","P +CRPS SHIFT ...droiUHi 

i- Z OU Z +CRP5 SHIFT. ,.tir" 

3075 INPUT "UITESSE DE UEUX (20 



>20 THEN GO 



BEEP .fi,-4« 
GO TO 2BBB 



FLRSH 



ha =a 
2040 INPUT "UNE AUTRE PRRTIE 
N> ?";y» 
205O IF y»="D" OR y» 



lO .- 
O" TMBN GO 
INK 0: PAPER 7: C 
LINE 1 



TO 7 

2060 BORDER 

US : STOP 

3000 souc "aa (. c 

3010 GO TO 6 

8000 REM PRESENT AT ION 

S010 CLS : INK 9 

302© PRINT "**«***************»* 

8021 PRINT ■» GRLRCTICR © 12/1 
383 DOSSOT *" 

8022 PRINT "»****#**#■***»»***##* 

S030 PRINT * "■ L'MPire de UISIO 
N-CONTROLE vous envoi* dti'indrc 
ta terre contre une horde de *et 
ec r i tes " 
5040 PRINT " Ces derniers vous a 



, di f 
8376 IF di f <0 OR d 
TO 8075 
8077 LET <ti f =S0-di ( 

6080 RESTORE 9550. FOR n =0 TO 50 
RERD Ma.Mb: BEEP .B04,*a BEEP 
.004, Mb: NEXT n 
3083 CLS 

3004 GO SUB 9000 

8085 FOR n=0 TO 14: PRINT RT 1ft, 
n, ink 8;" *• : NEXT n 
UP90 RETURN 

3000 REH CREATION CRRRCTERES 
900 1 RESTORE 9500: FOR n=0 TO 39 
9010 RERD W« 
9020 POKE ( 32600 +-n ), WW 
9030 NEXT n 
9040 FOR n=40 TO 71 
9050 POKE ( 32600 «-n ), INT ( RND #255 

9060 NEXT n 
9070 RETURN 

9500 DATA 24,60,24,90,255,255,21 
9,24 

9510 DATA 28,63,127,111,231,247, 
255, 127 

9520 DATA 127,62,31,62,62,127,63 
, 7 

9530 DATA 130,252,240,240,152,22 
,222 ,255 

9540 DRTR 255,63,55,127,254,240, 
252,248 

9550 DATA 2,3,3,4,4,5,5,6,6,7,7, 
S , 8 , 9 , 12 , 12 , 14 , 10 , 18 , 10 
*560 DATA 2,6,7,3,9,4, 10,5, 11,6, 
12 , 7 , 13 , 8 , 13 , 13 , 15 , 14 , 18 , 15 
9570 DATA 2,9,4,10,6,12,7,14,0,1 
6,9, 14, 1©, 13, 11, 10, 14,8, 18,6 
9580 DATR 2,12,4,13,6,16,9,19,11. 
, 22 , 9 , 25 , 7 , 23 , 9 , 19 , 14 , 23 . 18 , 30 
9590 DATA 2,15,4,15,6,15,8,15,10 
. 15 , 12 , IS , 14 , 19 , 16 , 20 , 17 , 22 , lO , 2 
3 

d800 DATA 2,18,4,15,5,10,7,9,9,8 
,13,6, 15,4, 17, 6, 17,3, 18,0 
9810 DRTR 2,21,4,15,6,10,8,5,1©, 
0, 12, 4, 14, 6, 16, 8, 17, 6, 18, 4 
4B20 DATR 2 ,24 ,4 ,24 ,4 ,20 . 4 , 16 , 8 . 
20, 6, 24, 10 .24 , 13,23, 15 .22,10,21 
9630 DATA 2,27,4,27.4.25,5,23,7, 
25, 10,27, 13,25, 15 ,24, 18,24 
9540 DATA 2,30,4,28,6.26,8,24,10 
,aS , 12,20, 24 , 15, 16, 10, 17,5 , 16, 2 



PANZERS 



Ne vous laissez pas impressionner par ces (HIPPO) 
TANKS, vous les reduirez a neant d'un coup de manette 1*" 
(dejeu) magique ! 

R.JOST 



i nm 


Ml 16384 






REM 




LES PANZERS A 


TADUE 




NT 


(C) 


R.JOST I9B3 •« 






oaSUB IMOl SOTO H40 








TRACE DE Ltt COURSE 


DU F-Fi 




OJECTIU 












SI • .2039:DI5 








INT 


1V0 • CO • TA 


: FOR 




T - 


1 TO 


IA STEP .B:VT 


- VO • 




TiX 


- KO 


* VT • COlV - 


¥0 - 




VT • SI 


4. 90S • T • ' 


: HCOLOR 


0: HPLOT 


W.VVi MCOLOR- 


31 HP 









IftO POKE - 16336, PEEK ( - 1633 
6)1 GOSUB 240:XV - XiVV - Yi 
NEXT l HCOLOR- Ol HPLOT XV, 
VV: HCOLOR- J 

1 10 HCOLOR- O: HPLOT XV, Y 



IP XC > DIST - 6 AND XC - Dt 

ST + 6 THEN FLG - I 

IF XC < DIST - 3 OR IC > D1S 

T ♦ 3 THEN 210 

GOSUB 560: RETURN 

DRAW 2 AT DIST.YCi GOSUB 320 

: HCOLOR- Oi DRAW 2 AT DIST. 

YC: HCOLOR- 3:CD ■ CD + Is IF 

FLG - 1 THEN DRAM 1 AT XC.Y 



RETl 



240 


IF FLG - 1 THEN 310 


251 1 


• '■ ...i INT I RND (1) • 6> 




t IF XC < SO THEN 2BO 




IF INT 1 RND 111 - .41 THEN 




GOSUB 360:XC - 2SO 




GOTO 710 


2B0 


IF NM < 1 THEN 3O0 


.""■ 


IF XC - 96 OR XC - S6 OR XC - 




60 OR XC • 72 OR XC - 66 OR 




XC - BO THEN NM - NM - I: GOSUB 



RIGHT* 



STR! 



HCOLOR- Ol DRAW 1 AT XA. YA: 
HCOLOR- Is DRAM I AT XC.YC 
IF RND til .1 THEN S50 

HCOLOR- Is HPLOT XC.YC - 5 TO 
30, YC - 5i POKE - 16336, PEEK 
! - 16336): HCOLOR- Ol HPLOT 
XC.VC - 3 TO 30.VC - S: HCOLOR- 
3 

IF XC ISO THEN 350 

IF RND (1) < .3 THEN NC - N 
C - 1: GOSUB S40: HTAB B: VTAB 
23t PRINT RIGHT* I" " ♦ STP» 
CMC), 2)1 IF NC ■ 1 THEN GOSUB 
650 
XA = XC: RETURN 
REM DESS1N DES MONTAGNES 
HPLOT 10. 100 TO SO, SO TO SO. 
90 TO 120,60 TO 150.90 TO is 
0.70 TO 220.110 TO 250. 40 TO 
279, 70t HPLDT BO, 90 TO 90.10 
O: HPLOT ISO. 90 TO 170,110 
REM TRACE DE L ' AFFUT 
HPLOT 3.135 TO 7, 135l HPLOT 
4.134 TO 8.134: HPLOT 3.133 TO 
9,133: HPLOT 4.131 TO 11.135 
: HPLOT 3.130 TO 13,133: RETURN 



!F AP - AN THEN 4B0 

> HCOLOR- O: HPLOT 10,130 TO U 
4 , V4 : HPLOT 11,130 TO U4 • 1 
.V4: HCOLOR- 3:U4 - U3lV4 - 
V3:AP » AN 

> IF PEEK ( - 162B7) < - 127 
THEN 420 

I VO - VI - INT ( RND (I) * S> 
1 HTAB 161 VTAB 23tN0 - NO - 
1: PRINT RIGHT* < •■ " * STR* 

(NO), 31: IF NO < 1 THEN 69(.i 

i NT - NT . l! QOSUS ISOt GOTO 
420 

• REM BRUIT DE L'EXPLOSION 

• FOR J - 1 TO 401 PDKE - 163 

36. PEEK < - 16336): NEXT : RETURN 
' REM DESSIN EXPLOSION 
I DRAW 2 AT 10,1331 GOSUB 520: 
"DRAW 2 AT 10,133: 5CALE- 2 

1 DRAW 2 AT 10.133s GOSUB 32 
O: XDRAW 2 AT 10.1331 SCALE- 
I: RETURN 

< REM EXPLOSION DU CHAR 

i HCOLOR- O: DRAW 1 AT XC, YCt HCOLOR- 3l 
DRAM 2 AT XC.VC: GOSUB 520: XDRAW 

2 AT XC.VCs SCALE- 4i DRAW 2 
AT XC.YCl GOSUB S20l HCOLOR- 

Oi DRAW 2 AT XC.YC: HCOLOR- 

3: SCALE- 1 s XC - 260 1 FLG - O 

:DIST - 100 
I GOSUB 370 
) IF NT • II THEN SC - SC * PT 

(NT): GOTO 600 

> SC - SC + 1 

> HTAB 17i VTAB 21: PRINT 5C:N 
T - Ol GOSUB 240 

i NP - NP - l| HTAB 36: VTAB 23 
: PRINT RIGHT* I" " ♦ STR* 
(NP).2>: IF NP t 1 THEN 670 

i RETURN 

' HOME : RETURN 

) REM TOUS LES CANONS DETRUITS 

i GOSUB 7401 PRINT " VOUS AVEZ 
PERDU CETTE BATAILLE": PRINT 
1 PRINT " TOUS VOS CANONS S 
ONT DETRUITS. -: PRINT t PRINT 
" VOUS AVEZ ANEANTI "30 - NP 
" CHARS"! GOSUB B20 

• REM V1CT0IRE 

' GOSUB 740s PRINT " VICT01RE 
■'■ L'ENNEMI EST EN DEROUTE 
": PRINT "VOUS AVEZ PERDU " 
12 - NC" CANONS": PRINT : PRINT 
"ET TIRE"200 - NO" OBUB.": GOSUB 
I370t GOTO B20 
1 REM PLUS D'OBUS 
i GOSUB 740: PRINT *' VOUS N'AV 
EZ PLUS DE MUNITIONS."; PRINT 
: PRINT - LA RETRAITE SMM 

POSE : GOTO 920 

REM PERCEE DE L'ENNEMI 
GOSUB 74o: PRINT " VOUS ETES 
SUBMERGES PAR LE NOMBRE.": PRINT 

: PRINT "SAUVE OUI PEliT : 

GOTO B20 
END 
REM AFFICHAGE DU SCORE FINAL 

HTAB li VTAB 21 i CALL - 868 
: INVERSE : PRINT "SCORE FIN 
AL -SCt 

IF SC MS THEN POKE 2043, S 
C i 23t>: POKE 2044.SC - PEEK 
(2045) • 2561 MS - SC 
HTAB 19t VTAB 21: PRINT "MEI 
LLEUR SCORE "IMS: NORMAL 
TEXT : POKE 33.201 HOME : VTAB 
10 



BOO REM UNE AUTRE PART IE 
B20 FOR T - I TO 30O0: NEXT : PRINT 
CHR* 17)1: HTAB 1: VTAB 
CALL - B6B: PRINT "UNE AUT 
RE PARTIE (O/N) ' "11 GET R* 
1 IF R* • "O" THEN TEXT i CLEAR 
1 RESTORE : GOTO 1 30 
B30 HOME : HTAB lOi VTAB lOl TEXT 



OiDIST - 0: XC - 260: XA - 260 

:VI - 3v:XO - 20iYO - I 30t YA 
- ISOiYC - 130IU3 - OiV3 - 

OsU4 - OiV4 - OiAP - 10 
) IF PEEK <20461 ■ 131 OR 

PEEK (2047) < 231 THEN PUKE 

2046,131: POKE 2047,2311 POKE 

2O44.0: POKE 2043,0 
( MS - PEEK 12044) * PEEK (20 

43) • 236 
■ NM - IS! REM NOMBRE DE MINES 

) NC - I2i REM NOMBRE DE CANON 



R5 
PTII1 - 10O0SPTI2) - B0OiPT<3 
) - 600:PT(4) - 400iPT(5) - 
200iPT(6) - 50IPTI7) - PTI6) 
:PTfB) - 20:PT(9) - lOsPTIICi 
> - 2i REM NOMBRE DE POINTS 
EN FONCTION DU NOMBRE D'ESSA 



IS 



REM GENERIOUE 

HOME : HTAB li VTAB 22: PRINT 

" LES PANZERS ATTAOUENT "i PRINT 

(C) ROLAND JOST - 198 
3" 
X<1> - 210:X(2> - 1701 * 13) - 
M0lX(4) - 30:Y<1> - 10:Y(21 

- 40:V(3) - 90:Y(4) ■ 150 
DRAM 1 AT 210. 10: SCALE- 2s DRAW 
1 AT 170,40: SCALE- 3s DRAW 
I AT HO. 90: SCALE- 4t DRAW 



AT ! 



ISO 



FOR T - I TO 3001 NEXT 
FOR I - 1 TO 4i SCALE- I: GOSUB 
S20: X DRAW 1 AT X I I ) , Y I I ) : DRAW 
7 AT If (I), VI Hi FOR T - I TO 
1001 NEXT : XDRAW 2 AT X(I>, 
Y1I): FOR T - 1 TO 300: NEXT 

I TEXT 

i HOME : PRINT '■VOULEZ-VOUS D 
ES INSTRUCTIONS (O/N) ?»|i BET 
R*s IF R* - "a-' THEN GOSUB 
1120 

• HGR i HCOLOR- 3t SCALE- 1 



TO ) 



NEX 



> HTAB ll VTAB 21: INVERSE : PRIN 
"HAUSSE *':: HTAB lit PRINT " 
SCORE "II HTAB 23s PRINT "SC 
ORE MAX. "MS 

) HTAB Is VTAB 23: PRINT "CAN 
ONS: l2-0BUS:2O0 -MINES: 1S-CH 
ARS: 30 " ! 

I NORMAL 

) HPLOT 0,136 TO 279,136 

■ GOSUB 7<v" 
' GOTO 420 

' REM INSTRUCTIONS 

' HOME i PRINT : PRINT " VOT 
RE MISSION EST D - ARRETER LA 
PERCEE DES CHARS ENNEHIS AVE 
C VOS CANONS ANTI- CHARS.": PRIN 

■ PRINT " VOUS DISPOSEZ DE 12 
CANONS POUVANT TIRER AV 

EC UNE HAUSSE OUELCONOUE. "s PRIN 



_E POUT 

ON DE LA MANEITE POUR TIRE 
R": PRINT 
1150 PRINT " L - ATTAOUANT .BIEN S 
UR. ESSAYE DE NEU- TRALISER 
VOS CANONS. SON TIR EST PLU 
S PRECIS A COURTE DISTANCE 

1160 PRINT " VOUS DISPOSEZ D'OBU 

OUS ETDNNEZ DONC PAS SI LES 

TIRSNE SONT PAS REPRODUCT IBL 

ES. " 
1170 PRINT •' HEUREUSEMENT POUR V 

OUS . LE TERRAIN ESTMINE." 
1IBC> HTAB 1: VTAB 23 1 PRINT "PRE 

SSER RETURN POUR CONTINUER 

"ft GET R*: HOME 
1IVO PRINT " VDUS AVEZ GAGNE SI 

LES 30 CHARS ENNEMISSONT DET 

RUITS. " 
1200 PRINT " VOUS AVEZ PERDU SI 

1210 PRINT " - VOUS N'AVEZ PLUS 

[:■ urn:, ■ 
1220 PRINT " - TOUS VOS CANONS O 

NT ETE ANEANTIS" 
1230 PRINT " - UN CHAR ENNEMI A 

REUSSI A ATTEINDRE VOS POSI 

TIONS." 
1240 PRINT : PRINT " DANS TOUS L 

ES CAS , ESSAYEZ D'AMFi IQRER 

VOTRE SCORE." 
1230 PRINT s PRINT " VOTRE SCORE 
DEPEND DU NOMBRE DE CHARS 

DETRUITS, MAIS SURTOUT DE LA 
PRECISION DE VOTRE TIR ... 

1260 HTAB li VTAB 21s PRINT "PRE 
NEZ LA MANETTE O ET APPUYEZ 
SUR LE BOUTON POUR COMMENC 
EB ..."li IF PEEK ( - 162S7 
) > 127 THEN HOME : RETURN 

1270 GOTO 1260 

I2BO REM TABLE DE FORMES STOCKEE 
EN PAGE 3 

1290 FOR I - O TO 13Bi READ Di POKE 
76B • I.U: NEXT I 

I30O DATA 4,0,10,0,63,0,115,0,14 
3,0,43.43,45,45.224,63.63,63 
,63, 191, 14, 101, 1,32,60,39.63 
,63.63.44,43,43,43,44,36,45, 
46.46.46,34 

1310 DATA 45,33,53,53.33.62,53.6 
3,63,63,63.63,63.63,39,39.39 
.44.37.43.43.6.0,36,37.45, 10 
0.100.32,232,31.62,54,39,39. 
39.252.34,22. 174 

1320 DATA 14,53,33,30,24.24,24.2 
4.24,32.33.61.24,24,8.8.37.3 
9,43.72,65.8.40,37,44,54.77, 
73, 54,83,9,34, 37. 53,0.43,0,0 

1330 REM PROGRAMME MUSIOUE STOCK 

E A PARTIR DE B8B (DEC). 
1340 DATA 173,48.192.136,208,4.1 

9B, 1, 240, 8, 202.208,246, 166, O 

.76.120.3,96 
1330 RETURN 

1360 REM HYMNE DE VICTOIRE 
1370 FOR I - 1 TO 49: READ NO, DU 

1 POKE O.NO: PDKE l.DU: CALL 

B8B: NEXT I 
1380 DATA 86. 44. B6, 136.86,44.64. 

1 BO. 64. 180,57. 1 BO, 57, 1 BO, 43, 

240.31,90,64.136 
1390 DATA 64,44,51,136,64,44.76. 

1 BO. 4B. 240.37, 136,68,44.64.2 

23. 1,90,64, 136 
14O0 DATA 57,44.51,180,51,180,31 

,180,48. 136.51,44,31,90.57,9 

0.57,245. 1,90 
1410 DATA 57, 136.51.44,48, 180,48 

. 180, 4B, 1BO, 43, 136.48.44.31. 

240, I, ISO. 43, 136 
1420 DATA 43,44,43.180.51,136.64 

.44.43, 1BO, 51, 136,64,44.86,2 

40, 1, 136.B6.44 
1430 RETURN *■ 



C'EST NOUVEAU, 
CAVIENTDESORTIR! 



PAS DE DEUX POUR SPECTRUM 

"Premier pas pour Spectrum" est un petit livre qui va vous 
guider dans la connaissance elementaire du basic, vous 
pouvez meme ecrire vos premiers programmes en quel- 
ques heures (c'est I'editeur qui le dit !). 
"Pius loin avec le ZX-Spectrum" va vous permettre d'aller 
plus loin que le tome I mais surement moins loin que le 
tome III qui ne saurait tarder a arriver chez votre libraire 
prefere (Cedic - Nathan). 



LOGICIELS POUR COMMODORE 64 

Micro Application Software distribue des logiciels pour 
Commodore 64. SKI-FR pour tester votre adresse sur les 
pentes enneigees dans un slalom geant. Installez-vous 
devant votre tele avec lunettes et bonnet deski ! POOL 64 
vous permettra de jouerau btllard americain. DAEDALUS 
64 est un super labyrinthe, matine avec un jeu d'aventures 
et des casse-tetes, le tout en trois dimensions. ZOOM 
PASCAL 64 vous permettra d'ecrire en PASCAL et 
SYNTHY 64 de composer de la musique en simulant la so- 
norite du piano, du banjo, de la batterie, etc... Ces logiciels 
existent sur disquettes et sur cassettes. 



Patois 
basic 



[.'adaptation d'un programme d'un 
ordinateur X sur un ordinateur Yn'est 
pas toujours chose aisee 
A priori, presque tous lesordinateurs 
individuels sonl programmables en 
basic, langage theoriquement stan- 
dardise 

En realite. et le basic par lui-meme 
nest pas en cause, chaque ordina- 
teur possede son basic "etendu" qui 
reste tres different des autres. 
Hebdogiciel vous aide a realiser 
I'adaptation des programmes qui 
vous interessent en publiant, chaque 
semaine et pour chaque ordinateur, 
un resume des particularites du 
basic concerne 

Pour les mordus du langage machi- 
ne, aucune solution de ce type n'est 
envisageable. et pour cause. 
Bien entendu, remarques et ajouts 
seront les bienvenusafinde comple- 
ter petit a petit ce panorama des 
patois basic. 

Cette semaine : TEXAS Tl 99/4A 
£1*™ partle), 



Le texas possede un basic particulierement different des autres ordi- 
nateurs individuels La gestion specifique du graphisme et la richesse 
des fonctions du Tl basic et du basic etendu nous imposent de traiter 
cet ordinateur en 2 parties. 

Nous n'avons pas, volontairement, precise les differences entre le 
basic simple ou Tl basic et le basic etendu : le basic etendu regroupe a 
peu pres toutes les caracteristiques du basic simple. 

Organisation du graphisme et du texte : 

Le texas utilise une page de texte de 24 lignes sur 32 colonnes utilisa- 

ble en graphisme basse et haute resolution a I'aide de caracteres que 

Ton peut redefinir. 

II existe 16 couleurs dont la "couleur" transparente. 

Tant que la couleur d'un caractere n'a pas ete definie, le caractere est 

en noir sur fond transparent. 




Le texas utilise pour lout ce qui concerne le graphisme des sous-pro- 
grammes fermes (sous-programmes systemes predefinis) que I'on 
appel au moyen de ('instruction CALL 

II est possible de definir des "lutins" ou sprite, qui sont des formes de 
couleur dont on peut controler le mouvement (vitesse horizontal et 
verticale) Lors de ('utilisation des SPRITES, I'ecran est comparable a 
une grille de 192 lignes sur 256 colonnes. 28 lutins peuvent coexister 
sur I'ecran, avec des tailles differentes Chaque lutin est anime d'un 
mouvement absolument mdependanl du programme : on peut travail- 
ler en basic pendant qu'un lutin traverse I'ecran 

Instructions gerant le graphisme 

CALL CHAR {CC. CF) permet de definir un caractere graphique. 
CC - CODE du caractere. CF- DESSIN du nouveau caractere Chaque 
caractereest represents par une matncede8*8cases Chaque rangee 
est representee par un octet, une case pleine etant notee 1 et une case 
vide par Apres codage en hexadecimale. on obtient CF qui est une 
liste de 8 nombres hexadecimaux sur 2 caracteres (total 16 chiffres 
hexa). Si CF comporte plus de 16 chiffres hexadecimaux, le dessin est 
code sur 2 (ou 3. 4. ) caracteres 



CALL CHARPAT 
(CC. CHS) 



CALL CHARSET 

CALL CLEAR 

CALL COINC 
(JJL.5L.TN) 



CALL COINC 
<5L R. C, T. N) 



CALL COINC 
(ALL. N) 



Renvoie (dans CHS) sous forme de 
chaine de caracteres binaires le motif 
du caractere de code CC (inverse de 
CALL CHAR). 

Reinitialise les caracteres de codes 32 a 
95 a leurs couleurs et motifs standards 
Efface tout I'ecran <CLS, HOME). 
Detecte la coincidence de 2 lutins (»L). 
La coincidence n'implique pas le che- 
vauchement , 2 lutins coincident si leurs 
coins superieurs gauches sont a hnte- 
rieur du seuil de tolerance (T). N con- 
sent -1 s'il y a coincidence, sinon 
Detecte la coincidence entre un lutin 
(»L) et un point repere par sa rangee (R) 
et sa colonne (C) (T) - tolerance. N - 1 
ou si coincidence ou non. 
Detecte la coincidence entre 2 lutins 
quelconques. N — 1 ou si coincidence 
ounon. -. a 

Suite page 18 



LE PREMIER TOME EST DEJA UN BEST-SELLER, VOICI DEUX NOUVEAUX 
RECUEILS DE LOGICIELS, ENCORE PLUS COMPLETS, ENCORE PLUS 
BEAUX! 



JEUX et PROGRAMMES 

pour I'ordinateur familial 

TEXAS INSTRUMENTS 

Tome 2 




INITIATION AU 
LANGAGE ASSEMBLEUR du 

TEXAS instrument; 

Ti 99 4 A 




S>^- 



Programmez vous-meme en Ti-Basic grace a des instructions simples, sans 
aucun peripherique ni module complement aires. Des jeux originaux et passion- 
nants avec couleurs, graphismeset sons :Jeuxde mouvement (Bowling, Bataille 
de I'espace, Labyrinthe, etc.). Jeux de reflexion : Dames, Pendu, Awari. Tour de 
Hanoi, Architecte, etc.). Jeuxdesociete (421. Goldie.Cochon.Mastermyster, Chif- 
fres et mots, etc.). 

Des programmes performants : Calcul (Factures, Paye, Byorythmes. etc .). Assis- 
tance (Tierce, Impots, Suivi de compte en Banque. etc.). 

Et aussi des Astuces pour augmenter la puissance du langage Ti-Basic : AND et 
OR, Arrondi, Alignement. HCHAR multiples, etc. 
100 pages. Format 21 x 29,7. 155,00 francs francais. Disponible. 



Le tome 2 est toujours en basic simple, sans peripherique ni module complemen- 
taire. Les jeux y sont encore plus nombreux : Backgammon, Sous-marin, Trappe. 
Roulette, Casse-tete, Puzzle. Echecs.Tachitoscope. Kim, Paires, etc... De la musi- 
que a inclure dans vos programmes : Big Ben. la Marseillaise, God save the queen, 
les Rois mages, etc. Et aussi, des programmes educatifs : Arithmetique, Calcul de 
puissance. Regions de France, entrainement a la logique informatique, etc. 
100 pages. Format 21 x 29,7. 1 55,00 francs francais. Disponible. 



en vente dans les fhac et chez les 
revendeurs TEXAS INSTRUMENTS. 



Le tome 3 est en basic etendu, il necessite done le module "Extended Basic" qui 
augmente considerablement les possibilites de votre ordinateur. A des program- 
mes utilitaires comme un traitement de texte ou une gestion complete de plu- 
sieurs comptes en banque s'ajoutent des jeux rapides (bataille navale, course de 
voitures, etc.), des jeux de societe (Theme astral, Drapeaux. Poker. Harmonium. 
Calculettescientifique.Ardoisemagique etc.), des utilitaires pourcreer des lutins, 
fusionner des caracteres. dessiner point par point, faire defiler des textes dans 
tous les sens ou encore fabriquer une mire Texas a votre nom ! 
100 pages. Format 21 x 29.7. 155.00 francs francais. Disponible. 



Vous connaissez le Ti-Basic. vous possedez un Ti 99/4A et un module "Mini- 
memoire" ? Vous pouvez des a present disposer de toute la puissance de votre 
ordinateur: Acces a toutes les possibilites graphiques.y compris la haute resolu- 
tion. Acces direct a la memoire centrale. Grande vitesse d'execution (deux minu- 
tes au lieu de deux heures trente pour un meme programme). 
Ce manuel. comprenant un grand nombre de programmes commentes vous 
apprend progresstvement, sans connaissances techniques prealables, a maitri- 
ser un langage tres puissant reserve jusqu'a present aux seuls specialistes. 
Par Denise AMROUCHE et Roger DIDI. 214 pages. Format 21 x 28. 195,00 francs 
francais. Disponible en francais et en anglais. 
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DEUX SUPER-CONCOURS PERMANENTS 

10 000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un concours de plus ! 
Rien de bien original dans cette 
formule, pourtant nous es- 
sayons de faire quelque chose 
de different : nous organisons 
un concours permanent tous 
les mo is et tous les trimestres ! 
Et avec des prix dignes des pro- 
grammes que vous allez nous 
envoyer! 

Oe plus, ce seront les lecteurs 
eux-memes qui voteront pour 
leurs programmes preferes sur 
la grille recapitulative men- 
suelle. 

Pas de Jury, pas de decision ar- 
bitraire. HE8DOGICIEL n'inter- 
venant que dans te choix des 
programmes qui devront etre 
ORIGINAUX et FRANCAIS. Si 
votre programme n'est pas tout 
a fait au point, un de nos spe- 
cialistesvous dira comment 
lameliorer pour pouvoir nous le 
proposer a nouveau. 



Pour participer, il vous sutfit de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation ainsi que toutes les ex- 
plications necessaires a I'utili- 
sation de ce programme. 
Vous pouvez obtenir gratuite- 
ment des bons de participation 
en ecrivant au Journal. 
Bonne chance! 

Reglement ; 

ART 1 HEBDOGICIEL organise 
de facon mensuelle et trimes- 
trielle un concours dole de prix 
recompensant le meilleur logi- 
ciel du mois et du trimestre 
ART 2 Ce concours est ouvert a 
tout auteur de logiciel quelque 
soil le materiel sur lequel il est 
realise. L'envoi d'un logiciel en 
K 7 ou disquette accompagne 
dun bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoye gratuitement sur de- 



mande par la redaction de notre 
lournal constitue I'acte de can- 
didature 

ART 3 La redaction d'HEBDO- 
GIC1EL se reserve le droit de 
selectionner sur la base de la 
qualile el de loriginalite les logi 
ciels qui son! publics dans le 
journal. 

ART 4 : Ce sont les lecteurs qui. 
par leur vote, delerminent les 
meilleurs logiciels mensuel et 
trimestriel 

ART 5 Le prix alloue pour le 
concours mensuel sera remisau 
plus tard un mois apres la clo- 
ture du concours mensuel 
ART 6: Le prix alloue pour le 
concours trimestriel sera remis 
au plus tard un mois apres la clo- 
ture du concours trimestriel 
ART 7 Le present reglement a 
ete depose chez Maitre Jauna- 
tre. 1 , rue des Halles 75001 Paris. 
ART 8 HEBDOGICIEL se reser- 



ve le droit d'interrompre a tout 
moment le present concours en 
en avisant les lecteurs un mois 
avant. 

ART 9 La participation au con- 
cours entraine I'acceptation par 
les concurrents du present re- 
glement 

HEBDOGICIEL: 27. rue du Gal 
FOY- 75008 PARIS 

Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
fort pourcentage de vote par 
rapport a la totalite des pro- 
grammes recus pour un meme 
ordinateur. 

Ainsi, pas de favoritisme pour 
les ordinateurs plus puissants 
ou tres diffuses. 
Nous reviendrons plus en detail 
a la fin du mois sur le systeme 
de depouillement du vote. 



BON DE PARTICIPATION 



Nom 
Prenom 
Age 
Adresse 

n : telephone 

Nom du programme 

Nom du materiel utilise 

declare etre lauteur de ce programme qui n'est ni une imitation ni 
une copie d'un programme existant Ce programme reste ma pro- 
priety et j autorise HEBDOGICIEL a le publier La remuneration pour 
les pages pubhees seront de t 000 francs par page (un programme 
noccupant pas une page entiere sera remunere au prorata de la sur- 
face occupee) 
Signature obligatoire : 
(signature des parents pour les mineurs). 

Le programme doit etre expedie sur support magnetique (cassette 
ou disquette) accompagne dun Descriptif Detaille du Materiel uti- 
lise, d'une Notice d'Utilisation du Programme, et dun emballage 
timbre permettanl la reexpeditton du materiel non pubhe 



RECOMMANDATIONS AUX LEC- 
TEURS QUI SOUHAITENT FAIRE 
PUBLIER UN PROGRAMME : 

• Indiquez sur le support 
magnetique lui-meme votre 
nom, le nom du programme et le 
materiel auquel il est destine 
Rien n'est plus difficile que d'es- 
sayer de charger un programme 
d'ApplesurPC 1500 

• Notez dans les premieres 
lignesde votre programme, sous 
forme de REM , votre nom, le nom 
du programme et le materiel 
auquel il est destine Nous pour 



rons ainsi reperer lacilement les 
listings, une foissortisde I'impri- 
mante 

• Dupliquez plusieurs fois sur la 
meme cassette et a des niveaux 
d'enregistrement differents 
votre programme. Nous aurons 
plus de chances d'arriver a le 
charger si les magnetophones 
ne sont pas tout a fait compati- 
bles 

• Envoyez un seul programme 
par support magnetique et un 
seul mode d'emploi par pro- 
gramme Votre lettre d'accom- 



pagnement et vos autres cour- 
iers doivent egalement etre 
separes car trades par d'autres 
services 

• Joignez. si possible, un listing 
du programme et un organi- 

gramme 

• Enfin, le fin du fin, expliquez les 
particulates de votre ordina- 
teur et le moyen d'adapter votre 
programme a d'autres ordina- 
teurs. 



LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EN OFFRANT A 
CHACUN DES PREMIERS 
DANS LEUR CATEGORIE UN 
OUVRAGE A CHOISIR DANS 
SON RAYON LIBRAIRIE (EDI 
TEURS : BORDAS, DUNOD, 
EYROLLES, MASSON, NA- 
THAN, PSI, SHIFT, SYBEX). 



LOGI'STICK OFFRE UNE GAM- 
ME COMPLETE DE SES CAS- 
SETTES DE JEUX POUR LE 
MEILLEUR LOGICIEL DU MOIS 
FX 702 P ET POUR LE MEILLEUR 
LOGICIEL PC 1500. 



SOUIRELLE RECOMPENSE LE 
MEILLEUR LOGICIEL DU MOIS 
PAR 2 CASSETTES A CHOISIR 
DANS SA LOGITHEQUE. 



Les editions du CAGIRE offrent 
au meilleur logiciel du mois sur 
HP 41, leur Hvre "autourde labou- 

cle" de Janick TAILLANDIER. 



Le Club PPC-T offre au meilleur 
logiciel en langage FORTH sur 
HEU LETT-PACKARD une adhe- 
sion gratuite a son club. 



DURIEZ CALCUL OFFRE AU 
MEILLEUR LOGICIEL DU TRI- 
MESTRE UNE MACHINE A 
ECRIRE BROTHER EP.22, 
2 KO DE MEMOIRE, INTERFA- 
CED RS . 232 . C. 



les programmes du mercredi 

Si votre enfant ne fiche rien en classe, achetez-lui un 

micro-ordinateur, il rattrapera son retard le mercredi en 

s'amusant. 

Voici des programmes pedagogiques selectionnes en 

collaboration avec le magazine "contact" de la FNAC. 



Contrairement aux consoles vi- 
deo 1'ordinateur n'est pas un jeu 
il excelle dans le calcul ou la ges- 
tion, apporte une aide efticace a 
la reflexion ou a la creation et, su- 
jet decet article,a I'enseignement 
et a la pedagogie. Pourtant, !es lo- 
giciels pedagogiques sont enco- 
re peu nombreux en France, nous 
en avons recense moins de 150 
contre plusieurs milliers pour ie 
jeu ! Les constructeurs et les edi- 
teurs ont compris recemment hn- 
teret de ces produits qui sont le 
prolongement de l'E.A,0.(Ensei- 
gnement Asstste par Ordinateur) 
I t'ecole et nul doute que 1984 
vera fleurir quantite de casset- 
tes, disquettes ou modules qui 
nous aideronl dans I'Education 
de nos cheres petites tetes blon- 
des. Pour I'instant, la difference 
est grande entre les marques 
d'ordinateurs disponibles. Si 
Apple, Atari, Texas et Thomson 
possedent une trentaine de logi- 
ciels educatifs, Commodore n'en 
a qu'une dizaine pour ses VIC 20 
et Commodore 64 ; quant aux au- 
tres, il faudra encore un peu de 
patience. . 

Initiation a 
i'informatique 

Dans cette categorie, peii de la- 
cunes, presque tous les ordina- 
teurs ont leur initiation au BASIC, 
qui est le langage de programma- 
tion le plus repandu pour les ordi- 
nateurs domestiques. La palme 
dela prolixite revient au Thomson 
T07, avec pas moins de sept logi- 
ciels sur ce sujet, edites par Vifi- 
Nathan et concus par la Cegos : 
pris en charge par Tordinateur. 
I'utilisateur decouvre progressi- 
vement les instructions du langa- 
ge BASIC, pour arriver sans peine 
a I'ecriture de ses propres pro- 
grammes. Un huitieme logiciel ini- 
tie meme les enfants a partir de 
huit ans ; "Dialogue avec une sau- 
terelle", du graphisme et beau- 
coup de couleur pour guider len- 
fant dans la comprehension d'un 
langage informatique. 
Pour Apple, les editions Ciel Bleu 
diffusent une serie de logiciels 
particulierement bien faits "Le 
basic explique". introduction a la 



programmation Applesoft pour 
debutant - 2 disquettes, 14 modu- 
les denseignement et 11 pro- 
grammes de travaux pratiques - 
suivi de "Au coeur du basic" et 
complete par le "Basic francais", 
traduction tres astucieuse de la 
totalite des instructions du langa- 
ge, livre avec un dictionnaire an- 
glais'francais et francais/anglais. 
Pour les autres constructeurs. 
rien de bien original : "Autoforma- 
tion au basic" pour Commodore 
64 et VIC 20. "Initiation au basic" 
pour Oric 1. "Invitation a la pro- 
gammation basic 1, 2 et 3" pour 
Atari (edite par Nathan). Et meme 
deux tres mediocres cassettes 
pour Texas Tl 99/ 4A : "Le basic par 
soi-meme", complete d'ici peu 
par 4 logiciels beaucoup plus per- 
formants (developpes par Collins 
Educational) : "Introduction au Tl 
99/4A 1 et 2" et "Techniques des 
programmes de jeux 1 et 2". 

LOGO 

LOGO est a la fois un langage in- 
formatique et un formidable outil 
d'initiation a I'informatique et a 
d'autres disciplines ou il apporte 
une logique naturelle par rapport 
a I'enseignement traditionnel 
Sa force reside dans le peu d'ex- 
penence necessaire a sa mise en 
ceuvre et dans sa capacite de dia- 
logue : il ne se contente pas d'etre 
un langage avec ses propres co- 
des, mais il accepte egalement le 
langage que lui apprend I'utilisa- 
teur. 

Ediciel edite un modele du genre 
pour Apple ; "Edi LOGO" - 3 dis- 
quettes et tres beau manuel de 
270 pages -qui peut etre comple- 
te par "Porte-parole", une carte de 
synthese de la parole qui permet 
un dialogue en clair avec I'Apple. 
"Tl LOGO II", module enfichable 
de Texas Instruments pour Tl 99/ 
4A est tout aussi efftcace. livre 
egalement avec un manuel tres 
complet. il necessile toutefois 
une extension memoire 32K pra- 
tiquement impossible a trouver ! 
Le 'LOGO" de Vifi-Nathan pour 
Thomson T07 esl presque pret. 
peut-etre en mars. Comodore 64. 
Spectrum. Lynx et meme IBM ne 
vont pas tarder a sortir le leur 



LOGO est de plus en plus present 
a I'ecole. pourquoi ne pas I'intro- 
duire chez vous ? 

Calcul, mathematiques 

Cette categorie est sans doute la 
plus complete (peut-etre a cause 
de la proximite des mathemati- 
ques et de I'informatique) et Ton 
trouve quantite de logiciels pour 
age et tout niveau scolaire. 
A partir de deux ans ! un defi ? 
Non, une realite Vifi-Nathan pre- 
pare une serie de microdidacts 
pourThomsonT07. Sontdeja dis- 
ponibles ; 

La "Ronde des chiffres" ou I'en- 
fant penetre dans le monde mer- 
veilleux de la fete foraine et y de- 
couvre les chiffres dans des ani- 
mations toutes en couleurs. Pour 
les plus "vieux" - de 5 a 7 ans - 
"Noix de coco" met en scene un 
petit singe malicieux qui enseigne 
les mathematiques. Toujours 
chez Vifi-Nathan, un plus classi- 
que "Complements et multiples" 
et, edite par Magnard. "Division et 
mathematiques". Oric 1 a son "Je 
sais compter" (Squirelle) ou le 
professeur prend I'aspect d'un 
ecureuil. 

"Calcuis" - initiation aux quatre 
operationsa partir de 7 ans. qui va 
jusqu'au niveau premiere, est 
propose par Lonciels pour One 1, 
Commodore 64, Spectrum et VIC 
20. Chez Commodore. "Calcul 
elementaire" a partir de 5 ans. qui 
comprend quatre programmes 
animes. "Math tac toe" et "Croco- 
dile math" pour Apple (Gel Bleu) 
et "Rallye" pour Atari. "Savoir 
compter" pour approfondir les 
concepts d'angles et de rotation. 
Texas Instruments, enfin, com- 
mercialise une serie de modules 
enfichables, dont la mise en ceu- 
vre est immediate et le contenu 
remarquable : "Addition-canon", 
"Crocodile savant", "Division- 
demolition", Dragon savant", 
"Meteor multiplication" et "Mis- 
sion moins". Ces logitiels, deve- 
loppes par Developpement Lear- 
ning Materials, utilisent des 
robots, des dragons et autres en- 
vahisseurs de I'espace qui res- 
semblent fortement aux simples 
jeux video, et sont d'un attrait cer- 
tain pourl'enfant 

Histoire, geographic 

Section assez bien fournie. et 
avec des produits de qualile. 
D'abord, toute une serie de tests 
geographiques ou une carte est 
dessinee a I'ecran en haute reso- 
lution, avec beaucoup de cou- 
leurs et de details, le jeu consis- 
tent a reconnaitre un point lumi- 



neux correspondant a une ville, 
une region, un fleuve, un pays, 
etc. 

Pour Atari, 4 logiciels : "Capitales 
USA", "Capitales Europe", "Atlas" 
et "Les drapeaux europeens" 
Ciel Bleu va jusqu'a explorer le 
ciel avec 'Voute celeste" pour Ap- 
ple. "Geomaster" (d'lnfogrames) 
fonctionne sur Thomson T07 ain- 
si qu'une "Carte de France" (Vifi- 
Nathan). "Villes de France" egale- 
ment pour Oric. Un seul logiciel 
pour Commodore 64 : "Voute ce- 
leste" (Ciel Bleu), Rien pour les 
autres ordinateurs Ere Informati- 
que edite "Histoire", un jeu de 
questions/reponses de 1800 a 
nos jours pour ZX Spectrum. 
Commodore est pour I'instant 
peu ou pas fourni sur ce chapitre 
ainsi qu'Oric et Texas Instru- 
ments. Atari, par contre, diffuse 
un excellent "Jeu du royaume" 
qui animera un peu les rebarbati- 
ves revisions d'histoire. Une 
"Quete du Graal" sur le meme su- 
jet existe chez Hatier egalement 
pour Atari. 

Enfin, plusieurs editeurs propo- 
sent des programmes de creation 
de jeux de questions/reponses 
pour presque tous les ordina- 
teurs. Vous pouvez ainsi creer 
vous-memes vos batteries de 
questions et choisir les sujets qui 
vous interessent ; "Quiz Master" 
(Commodore), "Questions/re- 
ponses" (Atari). "Quest" (Vifi- 
Nathan pourT07). 

Langues etrangeres 

L'anglais est evidemment a I'hon- 
neur dans lapprentissage des 
langues. Si certains logiciels com- 
me "J'apprends l'anglais" (Lori- 
ciels) pour Orid nesont en realite 
que des fichiers pour emmagani- 
ser du vocabulaire, d'autres sont 
beaucoup plus efficaces comme 
"Tell me" (Infogrames) pour 
Thomson T07, ou "Beginning 
grammar" et "Early reading" 
(Texas Instruments), pour Tl 99/ 
4A qui utilise un synthetiseur de 
parole. Ce sont probablement les 
meilleurs produits pour debu- 
tants actuellement 
A signaler egalement "Guten tag", 
une sene de 5 volumes sur la 
grammaire fondamentale alle- 
mande pour adultes et eleves de 
colleges et lycees (Vifi-Nathan 
pour Thomson T07) 

Decouverte 

Des initiatives interessantes dans 
cette section "Perception" pour 
developper la coordination ma- 
nuelle et visuelle et "Concentra- 
tion" pour enseigner la lecture 



avec des mots simples de trois a 
quatre lettres, developper ou 
ameliorer la memoire. (Ciel Bleu 
pour Apple). 

Sur le meme theme, "La ronde 
des formes" (Vifi-Nathan) a partir 
de 2 ans comporte 3jeux ; la gre- 
nouille et la pieuvre apprennent 
les associations de formes et de 
couleurs et I'hippocampe intro- 
duit une difficulte supplemen- 
laire : I'orientatlon et le depla- 
cement 

Lapprentissage de I'heure est 
egalement tres bien illustre par 
Tordinateur. "Horloge" (Vifi- 
Nathan pour Thomson TO?) et 
"Hickory-dickory" (Atari) A re- 
marquer "Code de la route" (Info- 
grames) a partir de 6 ans pour 
Texas Tl 99/4A et "Des signes 
dans I'espace". microdidact de 
Vifi-Nathan pour T07. qui amene 
I'enfant ajoueravec des signes et 
des sons en faisant reference a 
son corps ou a un objet exteneur 
pour decouvrir les directions de 
I'espace le haut, le bas, la droite. 
la gauche, etc, 

Musique 

Les peu nombreux logiciels edu- 
catifs de ce domaine sont genera- 
lement organises en trois parties 
lecture et composition sur une 
partition afficheeimmediatement 
a I'ecran, reconnaissance a I'oreil- 
le des notes jouees par Tordina- 
teur ainsi que durythme (blanche, 
noire, soupir etc.) et enregistre- 
ment de ses propres composi- 
tions musicales. Vifi-Nathan pro- 
pose une cassette. "Cle des 
chants", et un module "Melodia", 
pour T07 Texasa son "Musik ma- 
ker". Commodore son "Musik 
composer", Atari sa "Boite a musi- 
que" el son "Musik composer". 
amsique"Jouerdu piano" et "Cla- 
vier d'orgue" qui s'adressent a 
des compositeurs en herbe 
Les cartouches pour Apple sont 
nombreuses et les autres ordina- 
teurs ont tous, ou presque, leur lo- 
giciel musical adapte generale- 
ment d'un logiciel du pays d'origi- 
ne du fabricant. 

Dessin, graphisme 

La quantite de logiciels disponi- 
bles dans cette categorie est 
d'une pauvrete certaine. Il faut di- 
re que les instructions de dessin 
etdegraphismedu BASIC desdif- 
ferents ordinateurs sont relative- 
ment facilesa mettre en ceuvre et 
une cassette ou un module sur ce 
sujet ne sont pas toujours neces- 
saires De plus, I interet du dessin 
sur un ecran de television est loin 
d'etre evident, II existe malgre 



tout des logiciels tres perfor- 
mants, comme "Micro painter" ou 
"Chevalet video" pour Atari ; "Le 
dessinateur" (Lonciels) pour 
Oric 1 ou encore "Image" pour 
Apple (Ciel Bleu) "Pictor" pour 
T07 (Vifi-Nathan) est un peu plus 
original puisqu'il utilise les avan- 
tages offerts p=ir le crayon opti- 
que, encore qu'il est bien difficile, 
sans experience, d'arriver a tracer 
ne sp'ait-ce qu'une hgne droite 

Connaissance 

de la langue francaise 

Les editeurs francais sont evi- 
demment les premiers dans cette 
categorie. ou les logiciels sont 
peu nombreux mais de bonne 
qualite. Vifi-Nathan s'est occupe 
des 6 a 12 ans avec "Mes premiers 
mots croises" et "Mots en fleurs" 
pour Thomson T07, deux series 
de cassettes qui permettent a 
i'enfant de reahser des exercices 
de vocabulaire en evitant les pie- 
ges de la langue francaise et "Me- 
limemots", a partir de 12 ans, un 
excellent compromis entre les 
mots croises et le Scrabble "As- 
sociations 2" pour Apple II et 
Commodore 64 (Ciel Bleu) fait de- 
couvrir des expressions nouvel- 
les. des cliches el des phrases en 
jouant avec les mots. "Racines" 
du meme editeur va a la recher- 
che de la morphologie des mots 
Texas Instruments n'aura proba- 
blement que "Ponctuation". qui 
remet a leur place tous les signes! 
,?,. :, etc. (edite par Magnard) 
Atari propose "Chasse aux fau- 
tes" et "Ordre Alpha" suivis d'au- 
tres logiciels qui sortiront en me- 
me temps que le nouveau 600 XL. 
Une autre serie s'adresse aux fa- 
natiques des jeux de lettres et de 
mots: "Des chiffres et des lettres" 
reprend le principe de ce celebre 
jeu televise d'Armand Jammot, 
e'est Vifi-Nathan qui a rachete les 
droits et qui prepare un logiciel 
pourlaplupartdesordinateursdu 
marche. "Diconc" pour Oric 1 est 
fortement inspire de la meme 
emission. 

"Naja 1 et 2" pour Apple (Ediciel) 
est un jeu original qui met en sce- 
ne un serpent qui se debat avec 
des lettres et des mots. Passion- 
nant ! 

Et d'autres "Mots caches". "Mots 
secrets" et "Mots croises" (Ciel 
Bleu) pour Apple ainsi qu'un 
"Scrabble" (Squirelle) pour Oric 1. 



Suite page 19 



LOGO: UN LANGAGE DYNAMIQUE 



Voici la troisieme partie de la presentation du langage LOGO. D'un ni- 
veau un peu plus eleve que les deux premieres parties, elle est onentee 
vers la structuration des programmes 

Commeexemple, un programme de MASTERMIND est ajoute a la fin de 
('article. II est remarquable que. ecrit en LOGO, il ne comporte pas plus 
dune trentaine de lignes. 

A. PRE 



V - LES PRIMITIVES DE STRUCTURATION 

Comme tout langage informatique, LOGO possede des instructions 
qui "gerent" le deroulement des programmes. Celles-ci ne deelen- 
chent aucune action, a 1'oppose d'autres primitives telles que ECRIS 
par exemple. qui declenche Taction d'afficher sur I'ecran. 
Par contre. les primitives de structuration definissent dans quel ordre, 
sous quelles conditions, etc doivent s'executer ces actions. 

En LOGO, la plus utilisee est ; 

SI <CONDITION> <LISTE1> <LISTE2> 

Si condition est vraie. alors. la liste 1 est executee. Dans le cas contraire, 
on execute la liste 2. Vous remarquerez I'absence des mots ALORS et 
SINON qui vont generalement avec SI dans d'autres langages. 
Pour bien fixer les idees. voici la meme instruction ecrite en LOGO puis 
en BASIC : 

SI :A < [ECRIS "NEGATIF] [ECRIS "POSITIF] 

IF A < THEN PRINT "NEGATIF" ELSE PRINT "POSITIF" 

Bien entendu. la deuxieme liste peut etre omise (IF sans ELSE) si aucu- 
ne instruction n'est a executer dans ce cas-la. 

Une autre instruction de structuration qui est tres utilisee ; 

REPETE <N> <LISTE> 

La liste destructions <LISTE> sera executee N fois. 

Par exemple : o 

o 

REPETE 5 [ECRIS "BONJOUR] 

donne comme resultat : 

BONJOUR 

BONJOUR 
BONJOUR 
BONJOUR 
BONJOUR 



POUR CARRE 

REPETE 4 [AVANCE 50 DROITE 90] 
FIN 




- Lafficher a I'ecran en utilisant ECRIS. 

- Utiliser la primitive RETOURNE pour renvoyer le resultat. 

Cette deuxieme solution est bien preferable. Voici un exemple qui en 
montre clairement les avantages : ecrivons une procedure qui calcule 
la valeur absolue d'un nombre. tout d'abord sans utiliser RETOURNE 

POUR ABS :N 

SI :N < [ECRIS - :N] [ECRIS :N] 

FIN 

Cette procedure marche tres bien si on veut simplement afficher la va- 
leur absolue d'un nombre : 

ABS 4 

4 

ABS -18 

18 

Mais il est tout a fait impossible de mettrece resultat dans une variable 
De meme, il est impossible de faire des calculs comportant une valeur 
absolue (on ne peut pas ecnre 3 + abs — 15). 

Voici done une meilleure facon de faire : 

POUR ABS :N 

SI :N < [RETOURNE - :N) [RETOURNE N] 

FIN 

On a simplement remplace ECRIS par RETOURNE. L'affectation a une 
variable se fait alors sans probleme : 

RELIE "VAR ABS -18 

De m§me que les calculs: ECRIS 4 + ABS 12 

Et. pour simplement afficher une valeur absolue, il suffit d'ecrire 

ECRIS ABS -10 

Lorsque RETOURNE est utilise dans une procedure, celle-ci prend 
alors le nom de "fonction" 

La plupart des primitives LOGO sont des fonctions. Parmi celles que 
vous connaissez d6ja, citons : 



PREMIER 

SAUFDERNIER 
METPREMIER 

MEMBRE? 



SAUFPREMIER 

ITEM 

METDERNIER 

COULEURCRAVON 

EGAL? 



DERNIER 
LISUSTE 



On peut ajouter a cette liste. les primitives de calcul numenque 

SOMME 
PRODUIT 
DIFFERENCE 
QUOTIENT 



Les fonctions ppuvent etre classees sommairement en trois catego- 
ries : 

- Celles qui retournent un nombre (SOMME, VITESSE, CAP ) 

- Celles qui retournent un mot ou une liste (PREMIER? SAUFPREMIER, 
LISUSTE, METPREMIER. .) 

- Celles qui retournent une valeur booleenne vrai ou faux (EGAL?. 
MEMBRE?) 



FRANCAIS 



ABREV1ATION 



ANGLAIS 



Si <CONDITION> <LISTE1> <LISTE2> IF 

Si la <CONDITlON> est vraie, la liste 
<LISTE1> executee Dans le cas contraire. 
c'est la liste <LISTE2>. 



REPETE <N> <LISTE> 



REPEAT 
La liste d'instructions <LISTE> est executee 
<N> fois. 

RETOURNE <OBJET> RET OUTPUT 

Renvoie <OBJET> a la procedure appelante 

Voici en exemple quelques fonctions faciles a programmer avec. a 
chaque fois. un exemple d'utilisation (les reponses de I'ordinateur 
sont ecrites en minuscules). 

POUR ENVERS :LISTE 

SI EGAL? :LISTE [] [RETOURNE []] 

RETOURNE PHRASE ENVERS SAUFPREMIER LISTE PREMIER LISTE 
FIN 

ECRIS ENVERS [UN DEUX TROIS QUATRE] 

quatre trois deux un 

ECRIS ENVERS ENVERS [A B C] 

a b c 

POUR PAIR ;N 

SI :N<1 [RETOURNE VRAI] 

RETOURNE NON PAIR N - 1 
FIN 

ECRIS PAIR 2 

vrai 

ECRIS PAIR 15 

faux 

Remarque ; la fonction PAIR ne marche pas pour les nombres negatifs. 

POUR IMPAIR :N 

RETOURNE NON PAIR ;N 



(pourquoi se fatiguer ?) 

POUR NOMBRE _ MOTS LISTE 

SI EGAL? :L!STE [] [RETOURNE 0] 

RETOURNE 1 + NOMBRE _ MOTS SAUFPREMIER :L1STE 



Voici maintenant une troisieme instruction particulierement pratique. 
Malheureusement, on ne pense pas souvent a I'utiliser surtout quand 
on a I'habitude du BASIC. C'est la primitive RETOURNE 
Les procedures LOGO (a part celles qui sont graphiques) ont en gene- 
ral pour but, le calcul d'un resultat qui peut etre run des objets LOGO : 
soil un nombre, soil un mot. soit une liste. 

Deux solutions s'offrent au programmeur pour exploiter ce resultat : FIN 



ECRIS NOMBRE _ MOTS [A B C) 
3 

ECRIS NOMBRE _ MOTS [OUI NON] 



II peut etre amusant de redefinir la primitive DERNIER. 

POUR DER ;LISTE 

SI EGAL? SAUFPREMIER :LISTE [] [RETOURNE PREMIER :LISTE] 

RETOURNE DER SAUFPREMIER :LISTE 



Voici maintenant un programme un peu plus long qui vous permettrade 
jouer au mastermind avec votre ordinateur. Ce dernier choisit une 
combinaison de quatre chiffres (qui peuvent se repeter). A vous de les 
decouvrir en un minimum de coups. A chaque fois, le programme vous 
donne le nombre de chiffres bien places et le nombre de chiffres trou- 
ves mais mal places. 

POUR MASTERMIND 

RELIE "NOMBRE _ SECRET TIRAGE _ AU _ SORT 4 
JEU1 



POUR TIRAGE _ AU _ SORT :N 

SI EGAL? :N [RETOURNE []] 

RETOURNE PHRASE HASARD 10 TIRAGE _ AU _ SORT N - 1 

FIN 

POUR JEU iNUMERO _ COUP 
DONNE "ESSAI _ JOUEUR LISUSTE 

TAPE PHRASE [Bien places :] BIEN _ PLACES ESSAI _ JOUEUR 
;NOMBRE _ SECRET TAPE ESPACE 

ECRIS PHRASE [Mal places :] MAL _ PLACES :ESSAI _ JOUEUR 
:NOMBRE_ SECRET 

SI NON EGAL? BIEN _ PLACES ESSAI _ JOUEUR 
NOMBRE _ SECRET 4 
[JEU :NUMERO_ COUP + 1] 

[ECRIS PHRASE PHRASE [Vous avez trouv6 en] NUMERO _ COUP 
[coups)] 
FIN 

POUR BIEN _ PLACES LST1 :LST2 

SI OU EGAL? :LST1 EGAL? :LST2 [RETOURNE 0) 

SI EGAL? PREMIER :LST1 PREMIER :LST2 

[RETOURNE 1 + BIEN _ PLACES SAUFPREMIER LST1 SAUFPREMIER 

LST2J 

[RETOURNE BIEN _ PLACES SAUFPREMIER :LSTl SAUFPREMIER 

:LST2] 

FIN 

POUR MAL _ PLACES :LST1 :LST2 

SI EGAL? :LST1 [] [RETOURNE - BIEN _ PLACES ESSAI _ JOUEUR 

:NOMBRE„ SECRET] 

SI MEMBRE? PREMIER :LST1 :LST2 

[RETOURNE 1 + MAL _ PLACES SAUFPREMIER LST1 SUPP PREMIER 

:LST1 :LST2] 

[RETOURNE MAL _ PLACES SAUFPREMIER :LST1 :LST2] 

FIN 

POUR SUPP :MOT LST 

SI EGAL? LST [] [RETOURNE []] 

SI EGAL? :MOT PREMIER LST 

[RETOURNE SAUFPREMIER :LST] 

[RETOURNE PHRASE PREMIER :LST SUPP MOT SAUFPREMIER LST] 

FIN 

POUR ESPACE 

RETOURNE PHRASE PHRASE PHRASE CAR 32 CAR 32 CAR 32 CAR 32 



Attention les points d'exclamation en fin de ligne signifie qu'il ne faut 
pas taper <RETURN> en ces endroits-la. 

Cet exemple montre une fois de plus, que LOGO possede un excellent 
rapport NOMBRE DE LIGNES / PUISSANCE DU PROGRAMME tout en 
conservant une bonne lisibilite pour qui, bien sur. est habitue a la syn- 
taxe prefixee de ce langage 



M. BEAULIEU nous a vivement mteresse et nous publions done sa let- 
tre. les modifications qu'il propose et la procedure de demonstration 
II nest jamais trop tard pour bien faire. et nous publions done, sous for- 
me d'erratum, le mode d'emploi du Mini-Logo de J GADRAT 
Ouant aux problemes de longinalite d'un programme la definition de- 
mandee par M Beauheu est en cours d'elaboration De nombreux lec- 
teurs ayant le meme souci. il nous a semble necessaire de preciser les 
notions de programme original, copie. inspire et imite (et ca nest pas 
facile, croyez-nous i) 



Note de la Redaction 



J'ai lu avec beaucoup dinteret le mini logo publie dans le numero 13. et 
ceci particulierement apres nous avoir envoye moi-meme plusieurs 
programmes dont un mini-logo, en m'interrogeant sur leur appartenan- 
ce au concours, puisque ceux-ct ne sont pas origmaux (j'attends une 
definition) 

Je ne savais pas si le mini-logo publie serait different du mien ou pas, 
mais il apparalt tres different et interessant. Je I'ai etudie et modifie 
pour en etendre les possibilites Je vous joins une liste des tignes modi 
fiees qui permettent un nouveau type de dessin Ce qui a du §tre dom 
mage pour les lecteurs, c'est que vous n'ayez pas publie de mode d'em 
ploi. Voici done un petit programme de mini-logo (qui ne peut se dessi 
ner qu'apres les modifications du programme ci-joint). 



VOCABULAIRE 


POUR PA1 


POUR PA2 


•PA1 


- REPETE 


- REPETE 


•PA2 


- AVANCE DE 10 


- N'ECRIS PAS 


•PA3 


- TOURNE DE 60 


- AVANCE DE 20 


•wu 


- AVANCE DE 5 


- TOURNE DE 60 


■PI 


- TOURNE DE 60 


- AVANCE DE 5 




- AVANCE DE 5 


- TOURNE DE 60 




- TOURNE DE 90 


- ECRIS 




- AVANCE DE 4 35 


-PA1 




- TOURNE DE 60 


- 4 FOIS 




- AVANCE DE 4 35 


- C'EST TOUT 




- 2 FOIS 






- C'EST TOUT 




POUR PA3 


POUR PA 


POUR PA4 


- TOURNE DE 60 


- REPETE 


-REPETE 


- N'ECRIS PAS 


- N'ECRIS PAS 


- PA3 


- AVANCE DE 10 


- AVANCE DE 30 


- 3 FOIS 


- TOURNE DE 60 


- TOURNE DE 60 


- C'EST TOUT 


- AVANCE DE 20 


- AVANCE DE 70 




- ECRIS 


- TOURNE DE -60 




-PA2 


- ECRIS 




- C'EST TOUT 


-PA4 

- 3 FOIS 

- C'EST TOUT 





Apres avoir sauve PA1, PA2. PAS. PA4. PA. il suffit a chaque fois, pour lan- 
cer le programme, de faire PA, car avec les modifications du program- 
mes. PA1, PA2. PA3, PA4 seront appeles automatiquement. De plus, le 
programme peut commencer n'importe ou (ne pas oublier les ordres 
ECRIS et DISPARAIS) sur I'ecran. Le petit programme PA n'est pas am- 
bitieux. d'autant que la precision des calculs par APPLE fait que des 
points qui devraient coincider ne coincident pas a I'image Mais c'est 
une demonstration. 

En esperant vous avoir mteresse, je vous prie d'agreer, Messieurs, mes 
sinceres salutations. 

M BEAULIEU 

NOUVELLES FONCTIONS COMPTE TENUE DES MODIFICATIONS 

- Arrfet d'un programme par ESC 

- Fonction MENU pour lister le "catalog" 

- Fonctions CAP= permet d'onenter la tortue 

- Simplification du mot COIN 

- Efface, met la tortue au centre 

- La tortue ne sort plus des limites car elle revient par le cote oppose 
(PROCEDURE TORE) 

- Appel (CHARGE) automatique de toute procedure contenue dans 
une autre (charge automatiquement tout ce qui manque) 

- Nouvelle presentation de "vocabulaire", "liste" et "modifie" 



HCOLDR- 7; HPLOT 6.6 ID 


- "L. 


6 TO 272,153 TO 6.157 TO b.b 


- I33:Y - 74: 7 - 


!:■. 


•:■'. 


7sCOX(01 - 7: GOSUB 


.-" 




INPUT ■' IC« 






DIM IN* (7001 ,NC*l50 


. " ' 


,RX<33> ,PAS<25! . TRV. 


251 


..| -. 


23> ,ABX<SO> ,C&y.(50) 


. : ■■■ 




SO - 1.570B 






* » CHR* <13) * CHR» 


4i : r 


RX - 0:APV. - IiAPXK 




: : ■•■ - 


S - IO:PflS(0l = 10 






POk E 750, L 04s ETC. . . 


PO 


E "■■ 


9.96 






GOTU 500 






REM PROCEDURE TOPE 










9.96 


® \ 




'A', 


GOTU 500 






M<9 


REM PROCEDURE TORE 







-=■■ 


VA » TAN it) * (XA - «i - V: 






RETURN 


Q 




--■. 


«A - (VA - Y» / TAN '.J i • Ki 
RETURN 


Q <6 






HPLOT X,Y TO lA.Vfl: RETURN 






J63 


IF XI ■ 272 THEN 39S & 






yjQ 


Xft - -27~; GOSUF- 1 






SSI 


IF VA ■ IS3 THEN 3B5 1 
VA - 153: GOSUB 7-55: GOTO AhS j 






■H" 


IF VA b THEN ia - :?:-. GOSUB s 
ZSttl GOTO 461' 






S90 
400 


VA - b: GOSUB S55: GOTO 455 

IF >1 6 THEN «25 
Xrt • 6i GOSUB J50 






I?i 


!F VA 153 THEN 415 
Vfl - 153: GOSUB 355: GOTO 465 






.1 !' 


IF Vfl t, (MEN IA ■ o: GOSUB 
JSOl BOTO ■! '0 








VA ■ 61 GOSUB 355: GOTO 455 






4..". 


IF VA 153 THEN 44fi 




suite page 11 



Suite de la page 10 



MO 

445 



Vft - 151: If 

X: GOTO 45: 

A - 6: IF I 
: GOTO 455 
GOSU* : 

gokub : 



RQSUfe 
MDHE 



GOTO 4,7' 
liX - 6:V 

GOTO 4,7.' 

SDTQ *.■' 



,b: GOTO 4,3' 
VI AR 21tCtK 

GOTO "J (.T.O 

•i:CM = QiCM > 



IF TRX - 1 THEN HCDLQP» 7 
IF XI & AND VI 272 AND 

I b AND Yl 157 THEM hB< 

IF FEEh I - 14.7.B4) = !5S 
POKE - 167-68.0= GnTO "?L>3> 
GOTO 7-65 

HPLUr X.Y TO XI. VI 
IF L» THEN 840 
IF C = DC THEN BOS 
IF CH - 1.1 THEN CH ■ I: GOTi 
I3B2 



IF CH - 



1 THEN CH - 
CiOlfJ 9«IW 



S'-h. 



1 POKE - 16303 

CATALOG": GOTO 

1 IF C4 ■ "Ci 

■ TEXT : FOR C 

PRINT '•"'•!Ni:« 
I NEXT Ci PRIN1 
> TEXT I HOME : 

)C»: 1 * ADLlOlJ - O 
I PRINT " "i IN*(1>: IF J 

1 J / 20 + .'.'! I • 20 - 1"? THEM 
GET A* 
I PRINT : GOTO 9000 
I IF CH • 1 THEN 770 

VI - VOL ( M1D» (C0»<.»1): G( 




S70 TEXT : HOME t PRINT "MUDIF! 

CATION DE "iCCtl = ACV.tO 
HBO PRINT INStlrltV - PEE* 137 

> IF IN»II) - "C'EST TOUT* 1 THEN 
PRINT : GOTO 1920 
B90 HTAB I3i INPUT "|"|M| [F A 
• • "" THEN HTAB 16: VTAB V 
* 1: PRINT "IDEM"! GOTO 191 
O 
VIM IN*U) - A» 
920 PRINT : GOTO 9000 
930 REM + 
B910 C0» » "FAIS" * C04: GOTO 600 

9O00 IF ER - 1 THEN 903O 

900S IF PEEK C - 16384) - 135 THEN 

POKE - 16368,0: GOTO 9030 
901S CH - O 
■"130 INPUT " "iC»: GOTO 330 



- IMAGE 

- EFFACE 

- AVANCE DE X 



Au debut du programme, I'ecran est en 

mode graphique. TEXTE le femet en 

mode texte sans effacer la page graphi- 

que 

Fait reapparaltre limaoe. sans effacer le 

texle 



- TOURNE DE X 



- AU COIN 



-NORD 
- VA EN X/Y 



Efface I'image. retrace te cadre et place 
la tortue dans le coin a gauche en haut 
Fait avancer la tortue de X pas. X est un 
nombre reel et le pas aura ete defini 
avant 

Fait tourner la tortue de X degres DANS 
LE SENS DES AIGUILLES D UNE MON- 
TRE X est un nombre reel 
Replace la tortue dans le coin en haut a 
gauche. 

La tortue s'oriente vers le haut 
La tortue se deplace au point de coor- 
donnees X.Y X doit etrecompris enlre 7 
et 152 Y doit etre compns entre 7 et 271 
La tortue garde alors son orientation 
Voila pour les ordres qui permettent directement de manipuler la 
tortue D'autres concernent le PAS et les differents modes de displace- 
ment de la tortue Les voici 

- PAS— X Le pas devienl egal a X (nombre reel) A 

la difference du BASIC, modifier le pas 
dans une procedure ne le modifie pas 
dans le programme principal II sagit 
done la d*un parameire LOCAL 

- PAS+ X On ajoute X au pas 

- PAS- X On retranche X au pas 

- PAS* X Le pas est multiplie par x 

- PAS/ X Le pas est divise par X. 
Les differents modes sont commandes par : 

- ECRIS 



- NECRIS PAS 
- GOMME 

- APPARAIS 



- DISPARAIS 



En se deplacant, la tortue laisse une tra- 
ce deson passage. 
Elle se deplace sans laisser de trace 
Elle efface ce quelle trouve sur son pas- 
sage. En tait elle ecrit en noir. 
A Tissue de chaque deplacement ou de 
chaque rotation, la tortue est rnontree 
sur I'ecran. De plus, au moment ou I'or- 
dre APPARAIS est donne, la tortue emet 
un petit bruit. 

La tortue devient invisible. II est utile 
d'etre en mode de disparition quand la 
tortue dessine sinon le dessm de la tor- 
tue perturbe le dessin qu'elle trace. De 
plus le programme est plus rapides'iln'a 
pas a effacer et a redessiner la tortue a 
chaque fois. Enfin I'ordre DISPARAIS 
provoque aussi un bruit au moment ou il 
est donne. 
Tout commele PAS. les differents modes sont locauxetnese transmet- 
tent que de la procedure qui appelle vers celle qui est appelee.mais pas 
dans I'autre sens. II n'y a done pas a se preoccuper de restaurer le pas 
ou les modes au retour d'une procedure. 

Soit maintenant a creer une procedure et a I'utiliser. Voici les ordres 
correspondants : 



- POUR PROCEDURE 



PRESENTATION ET MODE D'EMPLOI DE 
MINI-LOGO 

Ce programme qui n'a pas la pretention de faire concurrence aux pro- 
grammes du commerce (le prix n'est pas le meme) permet pourtant de 
manipuler une tortue capable d'apprendre de nouveaux ordres a partir 
de ceux qu'elle connait "de naisance", et de ceux qu'on aura pu lui 
avoir appris auparavant. 

Voici done la lisle de ses primitives, e'est-a-dire les ordres qu'elle peut 
executer sans qu'il soit besoin de les lui expliquer : 



Indique au programme qu'on desire 
creer une procedure qui s appellera 
PROCEDURE (original). Ceci fait, le pro- 
gramme affiche un ? qui signale qu'il at- 
tend ta premiere instruction de la proce- 
dure. On lui donne, et il endemande une 
nouvelle tant que I'instnjction donnee 
est differente de C'EST TOUT ou de OU- 
BLIE. 

Indique au programme que la procedu- 
re est finie, aussi bien a la creation qu'a 
('execution de la procedure. En cours 



■ LISTE PROCEDURE 
-MODIFIE PROCEDURE 



- OUBLIE PROCEDURE 



- SAUVE PROCEDURE 

- CHARGE PROCEOURE 

- FAIS PROCEDURE 



- VOCABULAIRE 
-RIEN 



Enfin MINI-LOGO accepte 
de fois fixe d'avance. Les it 



- REPETE 
- X FOIS 



d'execution, quand MINI-LOGO ren- 
contre C'EST TOUT il arrete 1'execution 
s'H sagit de la procedure principale, 
sinon il rend la main a la procedure ap- 
petante en lui restituant son pas et ses 
modes. 

C'est I'ordre qui indique queta procedu- 
re qu'on est en train de creer est fausse 
Ce nest done pas un ordre program- 
mable. 

Montre !a Iiste de la procedure qui s'ap- 
pelle PROCEDURE 

Permet de modifier PROCEDURE" Le 
programme affiche une a une les com- 
mandes de 'PROCEDURE". II stiff it alors 
d'ecrire le nom de la nouvelle comman- 
de ou de taper "RETURN" si on ne desire 
pas la changer. 

Puisqu'il nest possible que de rempla- 
cer une commande par une autre, on ne 
peut pas avoir une nouvelle procedure 
plus longue que lancienne. 
En revanche si on remplace une com- 
mande par "C'EST TOUT", les comman- 
des suivantes. bien que presentes en 
memoire ne seront plus jamais execu- 
tees ni listees 

Fait oublier "PROCEDURE" a la tortue. A 
la difference de OUBLIE il s'agit dune 
procedure existant deja et c'est un or- 
dre partaitement programmable. 
C'est indispensable si on veut introduce 
une nouvelle procedure sous un nom 
existant deja Sinon il y aurait deux pro- 
cedures ayani le meme nom et seule la 
premiere serait prise en compte 
Mais dans ce cas si la procedure est 
oubliee, la place qu'elle occupait en me- 
moire nest pas liberee pour autant 
Sauvegarde une procedure sur la dis- 
quette 

Va cnercher une procedure sur la dis- 
quette pour la mettre en memoire. 
Fait executer "PROCEDURE" en sauve- 
gardant les parametres initiaux. 
FAIS est un ordre facultatif Par exemple 
si on a defini une procedure "UN ESCA- 
LIER", il est naturel de dire a la tortue : 
FAIS UN ESCALIER. 
Mais si la procedure s'appelle RATE UNE 
MARCHE, il est plus satisfaisant de pou- 
voir eviter de dire : FAIT RATE UNE MAR- 
CHE. bien que la tortue comprenne 
quand meme. 

Donne la lisle des procedures en 
memoire. 

Son execution ne produit aucun effet 
mais peut servir soit de reserver de la 
place dans une prodedure qu'on se pro- 
pose de modifier plus tard, soit a suppri- 
mer une instruction existante. 



Qui marque le debut de la boucle 
Qui marque la fin de la boucle. X doit 
etre un Entier positif. Cette instruction 
fixe le nombre de fois que les instruc- 
tions comprises entre REPETE et X FOIS 
devront etre repetees. 



On peut emboiter jusqu'a 25 procedures et 50 boucles. On peut avoir 
en memoire jusqu'a 50 procedures et 700 instructions 
- FIN Cette instruction fait sortir de MINI- 

LOGO. Elle ne peut pas etre program- 



TIR SUR CIBLE 



Tel un Buffalo Bill des temps modernes devenez un tireur 
d'eliteavecTIRSURCIBLES.Heureusementpourvousles 
soucoupes sont moins agressives (et rnoins futees) que 
les bisons. 

G. FAGOT-BARRALY 



1^8 ::::::: BOUCLE PRINCIPLE ::::::: 

:ee pq>e246~?. -; ::_:^.- : :i = iwe i 

218 If=IN»EY*:IF :* = "" THEN218 ELSE I" « 

■ : ii S OR ASC' II' II then; 10 ELSE238 

££6 [f-IHKEV*HF II-"" THEH260 

236 I=ASC'I*':IF :=i THEN [>:•: = -]! DY=A!E=8 

:&0T0£86 

2*0 IF 1*9 T HEN I =l:r.=e:D=l:G0T028@ 

I'.d IF I = lfl THEh : =(::: ■-■.•.[■ = i:V'jl : ..:: 

2iQ IF [ = 11 THEN [■■■ = es[' , i*-l:t' = 3i , 

2-0 IF I^i? THEN5S0 

2S0 LOC"TE^» ■■■■■• ■ --IFSJN- -IP0KEU*2e^ ♦ 

v.e 

2?e KV-KV + t- :■•■■■■= -! •■■' -£E> ■-:"• - 
>=C THEN300 

2?£ FOPI=1T07!LOC-TE^» :v. i "iPRJNT" "SPLfl 
y05L3O0NIS0" 

£?4 LOCATE 24. :v. , ■■■ :FF1NTCP*' l"!FLrtl "01L9D 

oniso":NE>;T:&rjTei40ee 

366 LOC«TEa*XV,YVSPWINT0M(P>lf Kl 

716 F0Rt = lTO?l!N£::T:GOT0226 



4?8 : 



TIR SUR UNE 



:iBL£ 



566 &0SLiB796iC.rj's0B7ee 

516 M = CR*' -frttO 2 ■-?•■ t- 1 ■ ■ 

526 Xe*XV!Ve«YV 

536 xe«v;6 + [-. : . »= »:>■-; :^ = PEEK"U+2MY6* 6 1 

:irP»6 THEH 850 

546 IF P=5 THE«*60 

556 IFP=4 THENSee 

560 IF P< 10 THEK5"ti 

562 l«="DOnl SCSI -=_- -iOl "'I J*"02"*i t* 

-03"*I«."04-.I$."05"-II 

ii* L0C*TE2»Xe,Y»«PRINT- " :POkE'j-. ■" - 

566 V(J>-V<J '♦PiP0KEe«33.»iLOeATE13,£4: 

PRIntv J ;:GOTO850 

576 L0CrtTE2*>;e. , .e:PF!NTMl:PL*'l 'OSLIDOSI" 

580 LOCflTE2»X0.i6:PRJ»IT" ":G0TO536 




Tie IF pee* ■ u+26*vft*:-:f> ■ « then return 
"28 C0L0RltL0CftTE2tAe.Y9:pPINTGRt.5. 
~ 30 P0KEU+28»Y8+xe.5!': OLOS'tiiPETl.iRN 
■ _ ^7 : 
-?& :::::;:: MINE TOUCMEE ::::::::::: 

799 : 

800 F0PI = -2T02:F0RK>-2T02:P = PEE- u-^.:i. I 
B*K...txe+I ' 

310 LOCATE; «■ Xfl+1 - .t'-i : PRINT". -!PLAV"05 

L1SI- 

826 IF P=i THEN2?2 ELSE IF ?>9 THEN J. 

= V. J. *P:P0kE24633.e:L0C«TE 13,24: PRINTS j 

■■; 

836 P0KE24633i 4:P0I E'j-26*. Y6*K .»X0»I,e 

846 NEXTiNE .T:EO T- i & «::e-32,8*V0-16 - 16 

• ,-;6*47,8*Y0»£3'.*- 

356 n=H-HPOKE24633»e!L0CflTE26»24:PRINTM 

IMF 11)6 THENP0KE24633.4SG0T0 220 

866 FORI = lT0ie:i.'OL0Re.2 

B62 L0C«TE27,24:P»INT- MISSILE ": 

B64 I*="POSI "IPLMV"L30I"*lI* , '03-♦I»»•05'■ 

•It 

866 L0CflTE28,24:PPINT" 

B68 I*»"8ID0"tPLflV05"' 

t 

870 NEXT:COLOR4.*:GOTO46e0 

897 i 

898 ii!J RIPOSTE C'UNE SOUCOUPE 

899 : 

900 FORI 



03-*II*"01" 



' 164X6*8, 8*Y0*. 



■ 8»> : 



920 LIt*E(l6»xe + 8,S«ve*4 ■-■ 84' 
■.YV*ye)+4>»-7:PLHY"02L3SlDOSI" 

??e L[HEcs«<xe+xv'+8.4*(ve«-Yv>*^ --t 

-3,8*VV*4>,l:PLflY"0IL2SIDO- 

?40 LINE<8*tXB+XV.+S,4»tY«« '>** ■• 

*8,8IVV»4>,-7 

959 PL-.-L5P'!NE'-T:G0T0292 



.1 - .J. 

X0"8.4« 



PRESENTATION 



698 men nouvelle 

699 i 

760 X0-INT' RND41S —\ ■■' 



SOUCOUPE ::!:: 
>«IMTi RN&422 ■-: 



W ■ 



:im CLi:JCREEN4, tt .r:P0t E24633,t 

1810 FOPI=8T0I?: .'=£.? : ?[«:■ 1 1 

102G J=J-l:LDC»Trj»_..:.f: PRINT IS 

1036 L0CflTE2»J.2:PRINT- -:IF J I 

20 

1046 COL0Rft.3!L0CrtTE24l.£!PPINTlt 



1056 PLP.V05L2ftOSOHISO"lCOLOR4,6iNEXT 

1066 E<ATA1.H,D,M." '■.-." "." ".E.T." " . " 

■ .t. -. ". " -,o, .;,o,n 

1078 FDRI=lTOieee:NEXT 
lyii? F-O>E24^-7..8!LOCflTEe,5,0 
1890 PR1NT-LE C'EPLACEWENT ['U " .: 
EFFECTUE" 
I 1100 PRINT"hiVEC LE : . OUmTPE FLl II 

1116 PRINT:PP1NT"L« TOUCHE ENTPEE DECLEN 

CHE LE TIR- 

1120 PRlNTiPPINT-CH^OOE CIELE h6hI?..l F^ 

PPORTE LES POINTS-; 

1136 PP1NT-QUI SONT I»[«IOUES" 

1140 PHIMTSPRIMT'VOUS SEPET ELIWINE EN T 

OUCHhKT - 

1156 PRINT"l«'!HPOPTE OUEL OBSTACLE ..." 

1168 PRINT-..,. OU SI UNE SQUCOUI 

ABflT 

1176 PRINT:PRINT"LEr MINE 

PONT LES P0INTS":PRINT-[iE3 CIBLES Dili SO 

NT PROCHES- 

1 130 PRINT:PRINT "«i.l I'E&UT [>U JEU • WIRE 

-fllSSEfiU NE" 
1190 PRINT-DEMUfRE iJU'EN -FFLI.«NT BUR UN 
E FLECHE" 

120C PRINT: COLOP0. 3! PR INT "ENTPEE -! 
1210 C0L0P4.6SLINEINPOT" POUR L- SUITE". 
li:G0T02686 
1V97 : 

1?96 : DIFFICULTEJ ET NOUS DES JOUEUPS 
1999 : 

20BB CLEHP. 32"5^.j:lL?;F0i E24o33,2:C0L0R 
0.2 

2010 LOCnTE6.5.0:PRINT"i:HOIfIJiEr VOTRE 
NIVEAU 'DE 1 " 5>"l ;»=INKEV* 
2820 S»"IMKCV»iS"VflL(S*>!lF S ; ; 

HEN2820 

£830 L0CflTE38»5iPRINTS*sSI=lBB»<5-S>:CDL 

0R8.3 

2846 L0C0TE6. 12:PPlNT"euEL EST lE NO"BRE 

DE JOUEURS 7-"»R*»INKEY* 
£659 R*»It*KEYttR"VAL(R*>lIF P 1 THEN^BSO 
2666 C0L0P4.6!CL>:PfJ>'E24633,e 
2670 F0R] = lTOp;L0CHTE6,2»l:PPINT"NOfl C'U 
JOUEUR NUMEPO-Jl: 

2086 LINEINPUTvf. I : IF LEN> V*. I ■ • 12 _ HE 
N V»a>-LEFT*CV*' I "I2- 

2690 PLflY-04L8['0PEli:F»S0L-;i0^E'.:'- :NE -:.L 
OTO3000 

2997 1 

2998 :: DEFINITIONS ET INITIALISATION : 

2999 ! 

3080 DEFGRf'0' = 6. 12. 24. 126. 126,24, 12.6: C> 
EFCRI'1 -=96.48. 152,126.126,152.48.96 
3016 t'EFGR*' 2 ' = 36. 153.91.126,68.24,24.24 
::>EFGRr< 3 ■ = 24.24.24.66, 126,91, 153,36 
3828 ['EFGP»' 4 '=8.8,24.68,60.24, 6,0: t'EFGR 
*< 5 '=0,24, 24, 36. 126.231, 129,8 

:■>.'. : * : >■■■ 1,-1 ■ ■■:,-..■..'.. . I--. .-.; 

• •7. =24, 24, 24, 24, 24. 24, 24, 24 

3640 P0KE24633,4:CLS 

3658 -:v = 6: fV = e:C'?; = e::'V = e:xe=e:Y8=e:»t=6 

3668 N0=8:[> = e: J=6: K =0: u = 8 = P=0: I f = " ■ = n*=" 

3078 DI«V<R)>DIHU<I I9>:U=VARPTR' U>0' 1 
3680 REST0RE3118: PEN LftNGoGE P10CH1NE 
3690 X8-INT':U-256':'.0=U-X0»256:POKE32"6p 
. ,0:POKE 32767, Y0 



3180 F0PXB = 32751TO32765:REM['If :POt E: 
L> -tH"-H*>:NEXT:G0T04e66 
31 10 C'rtT«CC.0: .E8.18.BE."F.fe.i;f.h8.. :t . 
8, 81, 26. F9, 39 



OUEUR iUlWHNT 
■ E24833.6 



DEC OR 



3991 

3998 :: SCOPES 

3999 : 

. . ■ 
J-i:FORI=lTrjR 

4018 LOCHTE0.£»l.8:-PINT.'t I i* : ' 
: "POINT": 

4826 IF V' I' I THEIJ PPI*T";" 

-•■ t .; me ": ::'.. :-.i. - 

4040 IF J=P*1 THEN6000 

4056 EXEC3275I 

4660 L0CATEe,22JPP!NTV*' J ■: " . -P C U 

UP ■-|:C0L0Re,3:PRINT-ENTPEE' , : 

4070 C0LOR4.6:PRINT" POuP" : L INE I NPU 

MPIENCEP-. ICGOTO5O00 

4997 : 

4998 :: DESSIN fcu 
499? : 

5808 CLSiL0CATE8,8,81POKE24633.4:BO>:F B. 
0.'-3I9.7.:BO:;r-ct.Ci - 15. 191 

5010 BOXF-8. !84>->3I9.19l :B( ;F. 304.8 '-' 

319.191 ■ 

5026 r0PI=8TOl*:P0»ELi*1.6:P0rEu + 468»'.6: 

NEXT 

5638 FORl=0TO2?:PO'EU-26»I.6:POtEU»20*I- 

19. 6: NEXT 

5648 F0R1=1T08:X8=:nT'RND»18 'i:Y0=iNT-P 

ND»22'*1 

• ''■■ ; 01 E '■-"» "* i>.5:C0L0Rl 
5060 L0CATE2«>.e,YI?:PPItlTGflJ' 5 > 
5870 NEXT:P0KE24633,e 
5080 COLOR8,3:FORI=1TOI8 
5090 :;0=INT<RND»16 ■•1tV6=1NT' PNC'422 -I 
5186 IF PEEK' U-26*V0-:-;6 ■ 6 THEN5898 
5116 MB=INT<.RTOli9e'*16:POKEu + 20«Ye-x0.N6 
5120 L0CATE2»;':*.YO:> : PINTPIGHTJ' STP*. NO >. 
2 'SNEXT 

5130 COLOP0,2:LOChTE8.2J 

-.148 PRINT''*' ..■;:Lu(.„lEi;-.i4:PP[NTrnPt. 1 
27 'I " 000 POINTS": 
5150 PRINTCHR*- 127 ■;" 12 HI SS I LE : " : : M= : 

5168 >;V=INTiRND*13"'l:YV=INT' RN[«22 -; 

5170 IF PEEK- u-204Y.'*:;v ■ 6 THEN5I68 

5186 POKEU*£04YV.:;v. I : COLOP0:POI'E246T3,4 

5190 L0CflTE24X-. Y'iPPlNTCHR*' 127 ■ 

' .■>••■ .n< >.;.h;i t; ; ',,,. 

5218 te-lm pni«:j >3IY8>INTCItND816)*3 

5228 IF PEE- - ■■• 8+XB THEN5218 

5230 PO»EU-284.-0.X8.4 

5240 L0CftTC2*X8, ;.j:PPlNTGR*t4 ,:«E>:T:GOTO 

200 

5997 : 

5998 ::::::: NOUVELLE PrtRTIE :::::::: 

e880 PPrNT:PPINT!FPINT"VOULE:-vOUS RECON 

HENCER 7.0 OU N .":I»=IN»:EV* 

6010 li-IIMCEY-UF 1* = "- THEN601O 

6020 IF I»="0" THEN 2068 

6638 IF UO"N" THEN6010 

6646 CLEAR, 32767, 6:CLS:P0KE24633. 6 

*058 LOCATE0, 16:PPINT"AU REVOIP ET .." 

O068 PRINT-... A 8IENT0T-:PPINT:PRINT:C 

LEAR. 32767, 8:E«D 



ISOLA 



ISOLAsejouesurundamierde8x6cases. II oppose habi- 
tuellement 2 joueurs. Votre adversaire d'aujourd'hui sera 
le PC-1211. 



Joseph BOURON 



A tour de role, chaque joueur deplacera son plon d'une case, comme le 
Roi aux Echecs Puis il detruil une case qui ne pourra done plus etre oc- 
cupee Gagne la partie, le premier qui reussit a isolef son adversaire de 
maniere ace que celui-cinepuisse plus deplacer son pion.soit que tou- 
tes les cases autour de lui aient ete detruites. soit que la seule non de- 
truite soit occupee par le pion adverse. 




5ta£flR : INPUT 
flSOLfl": 
GOTO 150 

10:P<l:F0R x=l 
TO 8:L=V+P,<X 
>:]F A<L>>-99 
3THEN 50 

20: FOR W=1T0 8: 
M=Ltft(Wj:IF 
ft<MXi3UET N 
-N+l 

30INEXT U:0=E3N 
+L+H(L>:IF 
>PLET P=0 

40:N=O 

50: NEXT X:0=F'.'E 
2:P=E2*<0- 
INT 0): 
RETURN 

M:FCiR W=1TCJ 3: 
IF ft(V+A<W)> 
<E3RETIJRN 

TO: NEXT W:BEEP 



5: IF V=I 

PRINT "J M 

0«HE":ENL 
SO: PRINT "V0US 

A',E2 GftGNE. 

BRAVO !"!ENB 
?Cl:C!=^ITW5:Q= 

0-INT Q: 

RETURN 
lOOlGOSUS 90:R=1 

+INT (a: 

GOSUB 90:S=1 

+ INT 8Q: 

RETURN 
110: BEEP J:PftU3E 

■ERREUR! R£C 

0MMENCEZ"! 

RETURN 
150: BEEP 1: INPUT 

"UN NBRE CKN 

<1 M I0:G0SJJB 

KO:T=10R+S 
160: GOSUB 100: LN 



lCiR-tS: IF U=T 
THEN 160 
170: BEEP 2:PRINT 
"VOUSi "!TS" 
NOU "!U:I= 
25+T:J=25-HJ: 
A(l:?=ftU)*t3 
i«J>=A<J>+E 

4 
ISO: GOSUB 90: 

BEEP 2: IF IP. 
.5PMJSE "JE 
COMMENCE"! 
GOTO 250 

190: pause "a vou 

s":infut "ou 

allez-vous? 

■;kiT=25»k: 

u=«bs a-n 

200: IF <A<T)>9M 
>+«lK>l>*<U 
095*<U<>10> 
*(UOD» 

GOSUB 110: 
GOTO 190 



210:A<l>=A','I>-£3 
:I=K*25:ACI> 
=A«>+£3 

220: INPUT "QUE D 
ETRUISEZ-VOU 
S? "-K:IF AC 
25-»K>>999 
GOSUB 110: 
GOTO 220 

230: A<25*K3-E5:V 
*J: GOSUB 60 

250: V=J: GOSUB 10 

:A':j>=*kj:-e 

4:l=P:H(Ji=« 
<J>+E4lP*P-2 
5: BEEP 3: 
PRINT "JE JO 
UE EN "SP 
2601 V"li GOSUB 10 
rA'IP^SiP'P 
-25: BEEP Si 
PRINT "JE BE 
TRUIS ";p: 
GOSUB 60: 
GOTO 190 



Ad.) 


• -11. 


A(2. > 


= -10. 


A<3. > 


=■ -9. 


AC4. ) 


= -1. 


A<5. ) 


= 1. 


A<6. ) 


=■ 9. 


A(7. ) 


■ 10. 


ACS.) 


= 11. 


AC25. 


) ■ 100000 


AC26. 


) = 100000 


AC27. 


) = 100000 


AC2B. 


) = 100000 


AC29. 


> = lOOOOO 


AC30. 


) ■ 1000CO 


AC31. 


> = 100000 


AC32. 


) = 100000 


AC33. 


) = 100000 


AC34. 


) = 100000 


A<35. 


) ■ 100000 


AC36. 


) = 100. 


AC37. 


) = 100. 


AC38. 


) = 100. 


AC39. 


) = 100. 


AC40. 


) ■ 100. 


AC41. 


> ■ 100. 


AC42. 


) = 100. 


AC43. 


> = 100. 


AC44. 


) = lOOOOO 


AC45. 


) = 100000 


A(46. 


) = 100. 


AC47. 


) = 200. 


AC48. 


) » 200. 


AC49. 


) = 200. 


AC50. 


) ■ 200. 


AC51. 


) = 200. 


AC52. 


) = 200. 


AC53. 


) " 100. 


AC54. 


) = lOOOOO 


AC55. 


) ■ lOOOOO 


AC56. 


) = 100. 


AC57. 


I = 200. 


AC58. 


) = TOO. 


ACH9. 


> = 300. 


ACSO. 


> ■ TOO. 


ACfil. 


i = TOO. 


AC62. 


) « 200. 


AC63. 


) = 100. 



ACM.) 


s 


lOOOOO. 


AC (S5. ) 


a 


100000. 


ACrt6. ) 


- 


100. 


AC 67. ) 


= 


200. 


AC68.) 


= 


TOD. 


AC69. ) 


B 


mo. 


AC70.) 


s 


TOO. 


AC71.) 


= 


TOO. 


AC72.) 


s= 


200. 


AC7S.) 


s 


100. 


AC74.) 


■ 


100000. 


AC75. ) 


= 


100000. 


AC76.) 


= 


100. 


AC77. ) 


!I 


200. 


AC78.) 


a 


200. 


AC79. ) 


as 


200. 


AC SO. ) 


- 


200. 


ACfil.) 


- 


200. 


AC(J2. > 


= 


200. 


AC83.) 


t 


100. 


AC«4.) 


~ 


1000CO. 


ACS5. ) 


=> 


lOOOOO. 


ACiSfc.) 




100. 


A<87.) 


= 


100. 


ACD8.) 


= 


100. 


ACIJ9. ) 


= 


100. 


AC90.) 


= 


100. 


AC91.) 


- 


100. 


AC92. ) 


s 


100. 


AC93. ) 


- 


100. 


AC')4.) 


= 


100000. 


AC95. ) 


= 


lOOOOO. 


AC96.) 


=J 


100000. 


AC97.) 


a 


lOOOOO. 


AC98.) 


= 


100000. 


ACS9.) 


= 


lOOOOO. 


AC 100. 


1 


■ 10000(1 


AC101. 


) 


= lOOOOO 


AC 102. 


) 


■ 100000 


AC 103. 


) 


■ lOOOOO 


AC 104. 


' 


> 100CO0 



Suite de la page 6 



B3 b; 

^971 CLS 
5972 1NK4 
93flB GOTO IBB 

9995 REM 

9996 REP 

9997 REH DESSIN DES PflNNEAUK 

9998 RE" 

9999 RE" 

18000 HlR.fcS--lr.Kl iCURSET 1IB. Z0, -DRfiW 60 

, lifB, 1 :QRflU -12010. 1 :DRftU 8 

0,-120)1 

10010 CURSEI 115, 145,0:3ROU 0, S9, ! :DRflU 

'0.0.0:DRflU 0,-40, I 

'3070 CURSE) 120.10,0'ORflU 68,135,1 :DRM4 

-136,0, 1 iURflu 68.-135. 1 =RE 
TURN 



12030 RE "URN 

12200 CURSET 100, 1 25.0 :DRfiU a, -38, I =DB(Ul 
5,-18,1 =0RAI4 10,-5.1:DRflU 
20 . i 1 

12210 DRAU 5,5,!:(JRAU -5.5,l:DRAU -20,0, 
1 :DRfty -5,5, 1 :ORf=iU 8,38, 1 
12220 DRAW -5,-5,1 :DRflU -5,5, 1 RETURN 

12180 CUTSET 14.9,U5.? J 0W" 0,-30, nORflu 

-5,-18, 1 iORHU -10,-5.|:ORfl 
U -28,8,1 

12410 ORfiUI -5,5,1 :QRflU 5.5,1 :ORftU) 20,0. 1 
:DRf4U 0,3,1 :OROU 0, 30, 1 

12420 DRftU 5,-5,l=0RflU 5,5,1 : RETURN 
12600 CURSET 95, 125,0:DRfiW 50,0, 1 iriiRPOU 

-40,0,0:ORrtU 5,-5,l:DRF1U 5 
.5,0 

12610 ORAM -5,-5, 1 ifJRAUJ 8,-28, 1 :PRflu 5,5 
. 1 :OR«J -!0,0,0:DRP1. 5,-5, 1 
12620 ORAU 0,-3,0:ClRCLE 3, 1 -OKfu 5,30, 
0:ORMJ 10,-10, 1 :DRftU 18,10, 
..' 
12630 DRftU -10,-10. I -ORPM 0,-25, ! lORWJ - 



-70,1 

10040 RETURN 

10300 HIRESMNK1 :CURSET 1 20, 145, 0:DROU 

68,-135, 1 =DRflU -136,9. 1 

10310 ORAU 68. 135, 1 : CURSET 120. ]35,0:DRA 

d 60,-120, 1 iORAU -120,0, 1 

10320 DRAUI 60. 120, 1 :DRflU -5,0,0 :ORAW 0,6 

3.1-ORflU 18,8,8:QRflU 0,-63, 

1 :»£TURN 

10491 INK! 

10500 MlRESilNKl ;tURSET 1 28,60, 0:C 1RCLE 

55,1 :CIRCLE 40, 1 

T0518 CURSET 1 15, 11 5, 0:DRftW 8, 65, I :DRAU 

18,8,0:DRflU 0.-65, 1 :RETURN 

10600 NIRESMNK1 :TURSET 1 28,68, 8 :C 1RCLE 

55,1 

10618 CURSET 115,115,0:DRAH 0,65, 1 --ORflUl 

0,0,8:DRftU 8,-55,1 

10638 CURSET S5.55,0:rjRAU ?0,0ii:ORflw 0, 

10,1 :DRPUI -70,0, 1 lORftU 8,-1 

8, 1 :RETURN 

10900 NIRES:!NK1 :CURSET 1 20, 60,0 :CIRClE 

55, 1 

10910 CURSET 115, 1 1S,0:ORAW 0,67,l:DRflU 

I0,0,0:OR«U 8.-67, 1 

10920 CURSET 75,60,0:DRAU 10, - 10, 1 :DRftU 

0,5, I :ORAL. 80,0, 1 :ORrtU 0, 10 

,1 

10930 DRRU -80,0, 1 :QRflU 0.5.UDRPU -18,- 

10, 1 :RETURN 

11300 CURSET 87,27,0;DRAW 61,71, 1 :ORflU 7 

.-7,0:DRAU -6 1 , -71 , 1 :RETURN 

11490 1NK1=CURSET 80, 40,0:ORfll4 5,-5,l!QR 

"U 5.0,1 

11500 ORAU 15,8,0:ORAU 25.0.|:DRAU 10,10 

.1 :ORAU 0,30, 1 :QRAU 0, 18,0 

11510 ORAU -10,0, 1 :ORAU 0,-18, 1 :ORAU 0, - 

!8,0:DRAW 0,-15,l:DHAU -5.- 

5, 1 

11528 DRAU -i8,a, 1 :rjRAW -15.0,9-ORAU -13 

■8,l:DRAU -5,-5, 1 iRETURN 

11608 CURSET 1 10, 100,0:DRAU -15,-15,1:DR 

1U 18,-10,1 =ORAu 15,15,1=0R 



14000 H!RES:CURSET 180.10 



9:CURSET 10 



- :... 



I5i : 



14010 CURSET 160,90,8:DRAU -30,- 

U -60,0,l:CRAU -20,20, 1 ;ORA 

U 0,10.1 

14820 DRAW -28,0,l:ORAU -20,20,1 

30,]:ORAU 170,0, 1 :ORAU -20, 

-5,1 



14040 DRAU -20,-5. 1 iORAU 20, -5, 1 :[ 
0,-10. MCURSET 40.158,1 :CIR 
CLE 20,1 

14050 CURSET 150, 153.1 CIRCLE 20,1 
ET 140, 90,0:DRAU -20,-20,1 



jeu imagine par serge iot 



15006 PRINT' APPUTE2 SdR 'ESPACE' =OUR i-E 
OEPART' ; 
15008 PR1NTCBR«C17; I 
15010 CuRSET 10,80,0:DRA1J 40, -28, 1 =ORAU 
50,-38,1 -DRAU 20,40,l:DRAU 



18,10, 1 =ORAU -15, 15, 1 IQRAU 15 -'0.1 



I 1820 DRAW -15. 15, 1 ; ORflw -10,-10,1 ;QRAU 

15.-15, 1 :R£TURN 
12300 CURSET 110, 120,0:DRAU 3,-38.l:DRAU 
10,0, 1 iORAU 8,-5. : --- 



15040 DRAU 5,-5,l!DRAW 70,-40,1 

0,1 

15050 CuRSET 80, 145.0:ORAU 105.0: 

-50,38,1 : DRAU -S5.-30.1 

15060 CURSET 100,1101^ 

■■. RAW B. 9. : ORAU 

8,-8,0 

■5,8, 1 :DRAW ■ 



-•>- 



15088 CURSET 200, 1 10,0:riRr;LE 10, ! ^DRAW 21225 N«( I • 1 j = " " 

-4,-4,0:ORAU 8,B,1=DRAU 0,- 21408 FOR 1=0 TO 10 

8-8 21410 IF N*Ci } = ■ THENINPUT'yO'RE NOrl" 

15090 DRAW -8,8,1 =DRAU 4.6,0 :DRAU 0,40, :Nt( n 

1 21414 NEXT liTEXT 

15100 CURSET 135,110,0:C1RCLE 15, 1 :ORAU 214 15 CLS :PR!NT :PR1NT :PRlNT " 

8,15.0; DRAU 0,48,1 CLASSEnENT 1 :PRINT;°RI 

15IIQ CURSET 135,110,0:ORAW -10,0,0:DRAU Mr 

13,9,1: ORAU -5,-5. liDRAU 2)418 FOR 1-1 TO 10 

0,10.1 21428 PRINT[iTABCI6)NCP;TABt22)N«U) 

15120 DRAU 5,-5, 1 :UO1130:ORAU -5,5,0:ORA 21425 PRINT 

u 0,-10,0:ORAU 5,5,0:UA]T30 2143a NEXI ; 

21500 GOTO 9570 pj 



12640 DRAU-10,-15, 1 iORAU 0, -5,0 :C 1RCLE 5 
. 1 : RE TURN 

13995 REi 

13996 RE^ 

1399? REH DESSIN DE LA UOITURE ACCIOENTE 



15140 DRAW 5.5,0:DRAU 0, -10,0 =DRAU -5,5, 
B 

15570 X«=KET« 

1SS80 IF X*"" THEN 15700 
15590 GOTO 15110 
15595 CLS 

15688 INPUT ■■DONNEZ-nOl UN NOnSRE ENTRE 1 
ET 1000 - ;a 



15610 FOR 1-1 TO A 
15620 B'RNOCl 1 
15638 NEXT I 
15640 HIRES :ii3T0 18 
1S780 CLS 

15718 PRINT DESIRE2-U0US LES INSTRUCTION 
S" 

15728 GETX* 

15733 IF W--0" THEN 15740 
15735 GOTO 15595 
13740 TEXT :CLS 
15750 PRINT iPRINT 

15780 PRINT 1 UOUS ALLEZ PARCOURIR LA 
FRANCE AU 1 

15770 PRINT-VOLANT D'UNE WOITURE ET LORS 
3£ UOTRE" 
15780 PRINT'flERUElLLEUX UOTAGE UOUS RENC 
ONTREREZ" 
15790 PRINT'DES PANNEAUX QUE UOUS 0EURE2 

15B88 PRINT'RECQNNAJTRE . 

I5BI0 PRINT :PRINT- uOUS AUREI A REPON 

ORE A CERTAINES'_ 

15028 PRINTOUESTIONS SUR LE NOH DE5 3EP 

ARTEHENTS" 

15838 PRJNT'OU DE CERTAINES . 

ATTENTION ' 

15840 PRINT- 'CHR*C27j"LLES NOUS NE 

ORIENT PAS DE '-• " 

15658 PRINT iPRlNl 

15B60 PRJNT'NE ROUlEJ PAS TROP UITE CAR 

UOTRE * 

15670 PRINT'UITESSE SERA CONTROLEE PARFO 

IS" 

CHR«t!7)' NBDNN 



15681 PRINT" ■ CHRt(27J-NB0NNE r M a^CE i 

BONNE ROUTE ... - 

15B85 PRINT IPRJNT 

15638 GOTO 15600 

20000 REH 

28810 IF B2>N(13) THEN 21000 

20020 T£XT:G0T0214IS 

21000 FOR 1=8 TO 9 

21010 IFB2>-N(I*n ANQB2<n;1J then Q 

21200 



ORAU 8,30, 



21828 NEXT! 

21200 FOR J = I0TC : - 

21205 Nfj; -. 

21210 N« . 

. : . . ■-: ■ - 

21220 NC1-1)'B2 



Suite de la page 1 



MACINTOSH ne possede pas de cla- 
vier numerique integre, de disque 
dur, d'ecran couleur ni d'interface 
parallele. 

On peut s'etonner aussi de la taille 
memoire (relativement etroite) et 
s'inquieter de la gamme systeme 
d'exploitation, supportee par le sys- 
teme. En ce qui concerne le clavier 
numerique, le disque dur et I'ecran 
couleur etbienqueMACINTOSH soit 
capable de supporter ces peripheri- 
ques. APPLE estime le prix du MA- 
CINTOSH aurait considerablement 
augmente. ilssontneanmoinsdispo- 
nibles en option, chez APPLE ou chez 
des Societes exterieures. 
La taille memoire peut paraitre peti- 
te, mais d'une part, les logiciels inte- 
gres en ROM (dont le systeme d'ex- 
ploitation) n'encombre pas la RAM. 
d'autre part, la carte digitale de 
MACINTOSH permet I'implantation 
de puces memoire 256 K-bits, lors- 
que celles-ci seront disponibles a un 
prix raisonnabie, ce qui etendra la 
memoire a 512 Ko (debut 1985). 



Les trois nouveaux LISA sont equi- 
pesde 512 Koctets et d'unlecteurde 
micro disqueSONY(3pouces1/2).et 
pourront recevoir jusqu'a 1 Mo de 
memoire centrale. LISA 2/10 est 
equipe d'un disque dur integre (10 
Mo). LISA 2/5 est equipe d'un disque 
externe (5 Mo) tandis que LISA 2. le 
modele de base est transformable 
en LISA 2/5 par simple adjonction 
d'un disque dur PROFILE. 



Encore un point pour APPLE, les pos- 
sesseurs de LISA, ancienne version, 
obtiendront gratuitement la modifi- 
cation de leur ordinateur en LISA 2/5 
de 1 Mo de memoire centrale, cette 
mise a jour incluant la livraison des 
nouvelles versions de leurs logiciels 

La nouvelle version des logiciels, re- 
ference 2.0 contient des ameliora- 
tions et corrections des outils (LlSA- 
CALC.LISAWRlTE.LlSADRAWetc . > 
et du systeme d'exploitation. Cette 
nouvelle version est disponible a ce 
jour en version francaise. UNIPLUS. 
UNIX et XENIX sont, de plus, imple- 
mentes sur LISA et done LISA 2. 
FORTRAN 77, RBASE EMAS. Enga- 
ges et outils de I'environnement 
UNIX sont commercialises par des 
societes exterieures 

Outre les logiciels de I'univers UNIX, 
trois autres types de logiciels sont 
accessibles pour LISA 2. 

- Les logiciels MACINTOSH (en mo- 
de emulation). 

- Les logiciels d'application crees 
pour LISA, (comptabilite SAARl. OM- 
N1S, etc..) 

- Les logiciels LISA (systeme d'ex- 
ploitation...) 

Le materiel et le logiciel etant vendu 
separement, ilestpossibledemode- 
ler la configuration logicielle en tonc- 
tion des besoins specifiques. 

En ce qui concerne les outils de deve- 
loppement, outre le TOOLKIT et le 
WORKSHOP deja diffuses, APPLE 
annonce QUICKPORT un utilitaire 
qui permet decreerune fenetred'ap- 
plication pour un logiciel deja deve- 
loppe. 

LISA 2 et 2/5 sont d'ores et deja dis- 
ponibles Quant a LISA 2/10 il faudra 
attendre Mars 1984. 



Caracteristiques de MacPaint ; 

- 2 modes de selection, 

- 5 epaisseurs de traits. 

- 6 typographies differentes. 

- 10 tailles de caracteres, 

- 1 1 formes predefines, 

- 1 2 jeux de caracteres. 

- 32 formes de pinceaux. 

- 38 decors predefinis 



Fonctions disponibles : 

- Creation de motifs personnalises 

- Effet de Loupe (point par point), 

- Remplissage de formes, 

- Modification de la taille des objets, 

- Couper/Coller avec MacWrite, 

- Trois "miroirs" de dessin. 

- Rotation des formes, 

- Resume des commandes disponibles. 

suite page 17 



DESSIN 



Votre ordinateur poss^de une imprimante graphique 
4 couleurs ? 

Alors ce programme vous permettra de creer les graphis- 
mes que votre imagination vous inspirera, et surtout de les 
conserver de facon durable 

Alain NOGUES 

Mode d'emploi : 

Le programme "tourne" sur un ordinateur CANON X-07-Version 16K. 

associe a I 'imprimante graphique X-710 Mais il peut etre aisement 

adapte pour les ordinateurs possedani une imprimante graphique 4 

couleurs. tels que SHARP PC 1500, CASIO PB 700 ou FP 200 et autre 

ORIG 

Le programme presenteicinecessitel1.5Kdememoire vive (la version 

sans REM demande 8.3 K) 

LES PARAMETRES UTILISES DANS LE PROGRAMME 

II y en a 19, ce nombre peut paraftre eleve . il est necessaire pour offrir le 

maximum de souplesse. En outre, il esl rarement necessaire de definir 

les 19 parametres a la fois. 

Parametre n° 1 : OP = O p tion 

Ceparametre. qui peut prendre exclusivemet les valeurs '.2.3ou4de- 

finit le type de dessin. 

OP = 1 ■ Dessineffectueavecdes motifs ayanltousleur premiersom- 

met issus de lorigine 
En (aisant varier regulierement fa longueur du cote du motif, on obtient 
des traces en spirales. 

Si au contraire on fait varier la longueur tous les NM motifs, on obtient 
des motifs geometriques reguliers 
OP = 2 - Dessin sans motif On peut ainsi dessiner toutes sortes de 

spirales. 
En partant avec un rayon >0 et en le faisant decrottre. on peut obtenir 
directement le trace symetrique si on le desire. 
OP ■ 3 • Dessin avec motifs issus dune courbe de base (definie elle- 

m§me avec les parametres de loption 2) 
La taille des motifs peut varier regulierement ou non, independamment 
des parametres de la courbe de base 
OP = 4 * La seule difference par rapport a I'option 3 est que la course 

de base n'est pas tracee Seuls les motifs apparaissent sur le 

dessin 
Parametre n° 2 : OX = decala g e horizontal 

Ce decalage s'exprime en pas de 0,2 mm. La largeur du papier limite 
I'amplitude du decalage autorise : 

-240<OX<240pas. 
Para metre rv 3 : OY = decalage vertical 

II s'expnme aussi en pas de 0.2 mm. Afin de limiter les consequences 
(sur le deroulement du papier...) son amplitude a ete limitee a ± 500 
pas, de facon tout a fait arbitrage. 
Parametre n 4 JS sens du trace 

Le dessin peut seffectuer dans le sens direct (JS = + 1 ) ou dans le sens 
inverse (JS ■= - 1) Le sens inverse correspond au sens des aiguilles 
d'une montre 

Param etre n " 5 : IA - increment de I'angle 

Pour definir la courbe de base des options 2. 3et 4, il faut 3 parametres : 
le rayon, I'angle separant deux rayons successes et la variation de la 
lonaueurdu ravon. 

Le parametre IA (exprime en degres) detinit I'ecart angulaire entre 
deux rayons successifs. 
Parametre n" 6 AD - angle de depart 

Ce parametre determine I'inclinaison sur 1'horizontale du rayon de de- 
part. II s'exprime en degres 
Parametre n° 7 . R - ra yon 

Le rayon situe la position du stylo par rapport a I'origine. II s'exprime en 
pas de 0.2 mm. 

Parametre n° 8 : IR — increment du ra yon 

Ce~para~metre determine I'augmentation de la longueur du rayon II 
s'expnme aussi en pas. II peut etre <0, nul, >0, entier ou non 
Parametre n' 1 9 : NR — frequence de t'increment ation du ra yon 
Ce parametre permet de : 

- garder le rayon constant (si NR — 0) 

- tracer une spirale (si NR — 1) 

- de faire varier la longueur du rayon toutes les NR fois (si NR >1). 
Parame tre n° 10 : N - nombr e de cd tes du motif 

Ce parametre determine failure du motif N doit etre >2 

N - 2 droite 

N - 3 triangle 

N - 4 carre 

N — 5 : pentagone 

etc 
N >15 environ ; cercle 

Parametre n" 11 : CM — lon gu eur du cdte du motif 
Ce parametre s'exprime en pas de 0.2 mm. 
Parame tre n° 12 : IC = increment du cote 

Ce parametre fixe ('augmentation (en pas) de la longueur du cdte du 
motif II peut etre <0. nul ou >0. entier ou non 
Parametre n" 13 : NM - tr6que_n_ce d'mcreme ntation 
Ce parametre fixe la vitesse avec iaquelle la longueur du cdte vane. 
NM — : motif constant 
NM — 1 : variation reguliere 
NM >1 : variation de IC pas. tous les NM motifs 
Parametre n" 14 : OM — inclinaison du motif 

L'inclinaison du motif (en degres) peut etre ajustee grace a ce parame- 
tre. soil sur 1'horizontale. soil sur le rayon de la courbe de base. Lincli- 
naison une fois precisee reste constante, sauf ordre contraire 
Parametre n" 1 5 : JO 

Ce parametre determine si l'inclinaison du motif se lait 
sur 1'horizontale ; alors JO — 
sur le rayon ; alors JO — 1 
Para m etre n° 16 : NT — nombre de motifs 

Sionlesouhaite.letracepeut s'interrompreau bout de NT motifs dessi - 
nes. Si on ne precise pas de valeur NT, le programme en fixe arbitraire- 
ment la valeur a 999 
Parametre n° 17 : KC — variation couleur 
Ce parametre peut prendre trois valeurs : 
KC — 1 : changement regulier de couleur tous les NC motifs 
KC — 2 : changement aleatoire de la couleur 
KC — 3 : pas de changement de la couleur 

A noter que, meme dans ce dernier cas.le programme permet dechan- 
ger la couleur du dessin a n'importe quel moment. II suffit d'appuyersur 
la touche (A) et de preciser la nouvelle couleur choisie 
Paramet r e n° 18 : NC 

Ce parametre fixe la frequence du changement de couleur tous les NC 
motifs. 

Pa rametre n° 19 JC - couleur 
Ce parametre precise la couleur choisie 
JC - . noir 
JC- 1 bleu 
JC - 2 vert 
JC — 3 : rouge. 
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On peul fteciler I'origine de • on - 210 pit tuivint I 'oruonUle. 

' et dt * ou - 500 its suiiini li <ertictle <un pis ■ 0,] ■«! 

' L'illure 4<j it'.t'.n depend it I'llKTMntltlM du -ivor, e! di I'm 
' et de li ffdjutnce i«ec liQuelle se tilt cetle increientition 
' Le dessin peut i'eHectuer dins le sens direct on inverse 
' Le aotH est detertine pir le then du naiore N de cotes 
' L* tulle dii tot if peut *iner,de facon plus ou loins rapide ... 
' *n iouint sur li frequence d'lncreienUUon 

' I'lncliniison des totits reste canstinte sur le ri<on cm sur ] "ho 
' L'irrrt du dessin peut se 'lire iutoe.it iqueient.iprfs NT lotifs d 
t ' Li couleur peul **rier ,« ticor feguliere ou ileiloir* 

REtl ih IMSTIALISATIDtt mi 

Il ' 

: PRINT' iBQNJQtJRi' 

1 PRlNPflppuver sur RETURN quint] il j t! --■ i It ft! du teite --'* 
If IPKCYtJ-" THEM 210 

CLEAR J :RI-«MNI|I 

DEFIHT J-0:DIH AIII'-IJI 1 l < ".r»[lll,HI'i:rtT-m 



i de RE TURN > * i OP 



l PflfiWIEfRES COMMIE A TOUS LES KSSINS I 



INPUT' OPTION CHOISIE Hiper 1,2,3 ou 

<} IF OP- I OR OP!'! fJDTO 250 

CLS:INPUT'V(WiEI-VOUS OECALEft LE CENTRE W 0ESSlN':Rt 

Ftt-LEFTIIRI.IMF R1>'N' GOTO 170 

CIS: INPUT 'DECALA6E H0RII0NTM..EN PflE'un pis-0,2M>';0l 

A If ABSiOI"2«l S010 3J0 

CLSiPfilNT'KOALASE HORIIONTAL TROP IBPORTANT,flODI-FIEr SA VALEUR -->* 

If IHtETH" THEN 320 ELSE 290 

CIS: INPUT* DECALASE VERTICAL ten pisl'101 

IF ASSt(]YH50l 6DT0 170 

PRINT* DECALA6E VERTICAL TROP 1HP0RTANT.WIDI-FIE2 SA VALEUR ->' 

,0 If INKETI=-- THEN 3«0 ELSE 330 

CLSMNPUT'VOULEI-VOUS UN TRACEDANS LE SENS DIRECT*:** 

'0 fil=LEFTI(RI,M:IF RfO* THEN J5> 1 ELSE JS-! 

CLS:1NPUT*INCRE«ENT ANGULAIRE (en deqresl'HA 

IF Cf=l BOTO S20 

9 ■ 

REN Ml PARANE1RES DU TRACE OE BASE M> 

1 * 

O CLS: INPUT* ANGLE DU RAYON DE DEPART SUR L'HORUONTALE ten deqresl 'il 

CLSrlNPUT* LONGUEUR (en pis I DU RAYON DE DEPART*:!! 

If ABS<D'<«iC0StADiP1/|gO»<24! BOTO (TO 

>0 PRIHT'VOUS S0RTE' DES tlNITES.NODIFIEI LE ROY-ON OU I'ANGLE -->' 

If WFtU" THEM tdO ELSE 420 

1 CLSrlNPUT' INCREMENT DU RAYON (en pisl'HR 

CIS: INPUTf REOUENCE D'lNCREhTENTATIOII <0*uwif i«t. l=spirile.etct 'iMt 

If DP': GOTO U» 

' • 

RED HI DEFINITION OU NOT IF DE BASE M 

D INPUT' NONBRE DE COTES DU N0TIF DE BASE (3=tn ingle, t'tarre.etcl "IN 

iO IF N<2 GOTO 320 

OCLSrIMPUT* LONGUEUR OU COTE DU NOTlFlen pisl'iCR 

i0 aS:INPUT* INCREMENT ten pis) DE LA LONGUEUR DU COTE *)IC 

CLS:INPUT* FREgtlENCE I 0< invirunce, 1> .initKUtreoulien, etc. ..)*;) 

CLS: INPUT' INCLINAISON DU HOTIF (en tfetresl'IDH 

■) If OP-1 GOTO UO 

OCLSilNPOT' ORIENTATION SUR L*HOR!tONTM.E <01 OU SUR LE RAYON 1 1 1 ' i , 

"J aS:INPUT'VOULEZ-VOUS UN ARREIAUTQWIIflUE DU TRKE'iRl 

RI=LEFTl(Rl,]);lf Rli*i* GOTO 440 

'0 US: INPUT* AU BOUT DE COIIBIEN OE ROTIfS'TNT 

■J ' 

1 REN mi CHOI! DE IA COULEUR •■• 
il ' 

10 a.S:lNPUI*V0UlII-V0uS UN IR«a A COULIUR VAXInBlE-iRI 
» M=LEf»!fiJ,l!:IF Rt=*N* THEN KW :60TD hid 

,0 CLS: INPUT- AVEC CHANGE RENT ALEATOIRE'IRI 

'0 RIHEFTHRt.l):IF RCN' THEN KC-1 ELSE D>2 iGOTO bit 

K aS'INPUT'FRESUENCE <en noMre de »otifsl DU CHAN-GEflENI'iltC 

K aS:INPUT* COULEUR CHOISIE AU MPARl(0=noir, t-bIw2».ert,3«ouoe*;JC 

H • 

10 REN im INITIALISATION DU TABLEAU DE VALEURS DES PARANETRES ■" 



) T(l)*OP*I(2l-OI:tl3)-OfiIt4 
> T(10l=N:T(tII'CHM(I2)<IC:l 
i T(|6)-NI:T(I?)=IIC:H!BI=NC: 



=J5iT(5l'IA:Ti6J'AD:TIJI'R:ItB>'IR:T(9 

I!)HMi!Ilfl>niT(151-4D 

(19)=JC 



REN mi INITIALISATION OU TABLEAU * DEBUT ECRAN ■ 

1 0*11)'* OPTION CHOISIE : 

2 Wt2l = *DECALA6£ HORnONTAl: ' 

3 0*131'' DECALAGE VERTICAL I ' 

4 D*I4):'SENS DIRECT 1 1 J ou INDIRECT*-!!:' 

5 01(31;' INCREMENT ANGULAIRE: ' 
« D1IGH' ANGLE DE DEPART I 

7 0*471=' RATON DE DEPART I 

8 MIBi'MNCREHEm DU RAYON : * 

R D»(9|. 'FREQUENCE 0' INCRENENTATION: * 

»U0)=* WT1F i' 

1 D*<11)*' L0N6UEUR DU COTE : 

2 D*I121=* INCRENENT DU COTE : * 

3 D*l!3l = -FREflUEIKE D'IKRENEHTATION: ' 

4 Pi' Hi =" INCLINAISON OU HOTIF " 

3 D*(151"'SUR OHO) on SUR IE RAiONUI: ■ 

6 Dtdgl'-ARRft DU TRACE APfiES* 

7 D»(17)=* PARAflETRf COULEUR : * 

5 OlrlBr-' CHANGfNENT COULEUR APRES' 

4 D»(19)=- COULEUR OE DEPART : * 



LOGICIELS CANON 



Explorez les etonnantes possibilites de votre CANON 
X-07 avec les quelques 40 programmes reunis dans cet 
ouvrage Des programmes performants qui fonctionnent 
sur le X-07 de base (8 Ko) : calculs scientifiques : opera- 
tions sur les matrices, conversion de coordonnees. 
racinesdepolynomes. integration, interpolation, etc. Des 
utilltalres : gestion de compte en banque. histogramme, 
impot. hard copy, trace de courbes, biorythmes. etc. Des 
jeux : loto. poker, ardoise magique, un peu d'EAO. un 
super jeu d'aventures : le Tresor du Gallon et trois "gros" 
programmes qui necessitent une carte d'extension 4 K ; 
Astral. Tierce et Surfaces et Volumes. 



Canon 

ORDINATEUR INDIVIDUEL 



JEUX 
ET 

PROGRAMMES 



J ,l H 
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-..EQUATION Seme DEQRE 
2. INTEGRRTION 
3.RRCINES DE POLYNOME 
UOTRE CH0IX < 1^2^3 >■■? 




UN LIVRE SIGNS SHIFT EDITIONS! en venle Chez les 
distributees CANON et par correspondence. 



>^ 



BON DE COMMANDE A DECOUPER OU RECOPIER 

A ENVOYER A 
SHIFT EDITIONS : 27. rue du GAL-FOY. 75008 PARIS 



PRIX UNITAIRE 95 F 
contre remboursement 

REGLEMENT JOINT 
cheque D CCP D 



France + 20 F a, etranger + 30 F O 

,0 F DATE: 

SIGNATURE: 




34! AlllI);' LONGUEUR DU CDTE <»*>..' 
W MU2I*' INCRENEN1 DU COTE InhI.' 

8(3 MI13)-" FREBUENCE INCRENENT 

SM A*(KI'' [NCLIMISON ttHHjn*)....' 

B45 AtflS)'* SUR 01 (0) OU SUR R ID.' 
946 A('.;f=' NONBRE DE MOTIFS PREVUS.' 

e»' mm*' paranetre couleur: <c...* 

B4B AlllS"' FREOUENCE COULEUR ' 

8(9 MU««' COULEUR K MPMT * 

B99 ' 

900 RER Mi VERIFICATION- DES PARAPETRES «•• 

901 * 

910 CLS:INPUT*V0ULEI-V0US VER1FIERLA VALEUR DES PARAnETRES^lRl 

'10 Rt*LEFItlR(.ll:lF RI-'N' THEN 960 ELSE BOSUB 2VK 

910 CLS:INPUT*LES PARAHETRES S0JT-1LS CORRECTS'iRt 

940 R1>LEFT1(RI.[!:IF Rt='0* THEN 9t0 ELSE BOSUI ?600 

950 GOTO 910 

940 CLSiINPUT'VOULEI-VOUS I'lNPRESSION OES PARANETRES-iRl 

970 RtHEFlKBI. !i:lf Rt'*Q* THEN BOSUB 2600 ELSE 1010 

980 CLSiPRINT* — >*: IF l«!»-*' THEN 990 

m ■ 

1000 REN m INITIALISATION DU TRACE HI 

1001 ' 

1010 N!'0I'240rlF JIM THEN R('0T-r!8 ELSE HY«0»-300 

1020 LPRINT CHR»(!8l!LP81NT'R'Hl*."R»:LPR!NT'r:LPRlNT'C';J'; 

10M CLS: INPUT EIECUTI0N-.R* 

1010 P.|iLEFTIlfil.H:IF R*='N* GOTO 202O 

1950 PRINT' POUR INTERRONPRE L I (ECUI ICM. WPUlER SUR LA TOUCHE ( 

1060 J<0:IF 0P--1 GOTO 1150 

I0B9 ' 

1090 REN mi TRACE OE N0T1FS A DRIGINE F I IE (OPTION II (I* 

1091 ' 

1100 AC=0N:SC=CR 

1110 GOSUB !50O:LPRINT*N 0.0*:GfltO 2000 

1120 J=J*1: IFJ=NT GOTO 2020 

1130 G0SU! 1790:RC:CH:S0T0 1110 






■TION 



3 : -j [ 1 1 s . : . r.« 



OEULM3C SIK 
OECl*.l*GC SUR DT 
SENS »; TRMCE ( 
INCRErTtMT HtOLt 
WGLE PE DCPARI 
RATOB OE OEP*Wl 
INCRErtEHr OU Rjvrow 
FHEQLEK£ IMCREfT£l 

nmecE oc cotes a 

Inr-WITCNT Ou COIE 
FRtautWCE INCREHE 
IMC-INHISON [d*«t 



•OWIE OE homfs **Eu<JS. 

'HJ.t»l ■. llLH.l.lf . 

rOULEUB OE OEPM! . 



1 13* ■ 

1110 BE" 



i TRACES »rtt C0URBF5 • 



OPTION CHOI5IEH.2.;ou4l* 
DECALAGE SUR 01 'to pisl* 
DECALAGE SUR Or (hi pisi- 
SENS DU TRACE d m -II.' 
INCRENENT ANGLE titdTH)' 
ANGLE DE DEPART idrgrHl' 
titirm M pfp»i itll>,,.* 
INCRENENT DU RAfDN (OKI* 

FREBUENCE INCRE«Ml ■ 

1 NONBRE OE COTES DU N0TIF* 



I1M K*K»MllC0j]»W-If IM 'HEN H-l 
1160 60SUE M00:LPR!NT"N-NI*.'HY 
II JO IF OP : GOTO 1300 
IIB" - 

1190 REN in TRACE SINPlE 'OP'ION t\ it. 

1191 ' 

IZH GCSUB IUH-RC-4-IF 10=1 GOTO 1210 
1210 IF DM OR Rf«l AND IR'.O SOTO 1TO0 
1220 GOSUB M0O:LPR!NT*!!*NI-.*NY:AN=[BiJS!G0T0 2000 




Suite page 15 



MUNCH-TI 



Ce programme est une copie simplifiee du celebre jeu 
d'arcade "PAC MAN". Contrairement au jeu d'arcade 
mon programme necomprend que deux monstresau lieu 
de quatre pour avoir une rapidite d'execution moyenne, 
(pas beaucoup plus lente que le jeu d'arcade) 

Philippe IMBERT 



Aux quatre coins du labyrinthe. il y a des censes qui rapportent seule- 

men! du bonus ainsi qu'au centre suivant les tableaux, un fruit, il est 

done possible de pouvoir courrir apres les monstres 

1" tableau: 1 pomme 

2° " : 1 banane 

3° " ; 1 Cle 

4" : 1 Dose de vitamines 

5° " : 1 panier garni 

De plus, entre chaque tableau une course poursuite pre- prog rammee 
permet un instant de detente Ce programme fonctionne indifferem- 
ment avec les manettes de jeu (manette 1) et avec le clavier 



t 

R 

— D F — 

C 

( 

Vous avez droit a quatre vies par tableau et chaque fois que vous etes 
mange les gros bonus (pomme. cerise, etc...) reviennent pour vous per- 
mettre d'atteindre le score limite pour changer de tableau 
Attention la moindre erreur en changeant de direction peut vous etre 
fatal e 



130 CALL CLEAR 

140 L-l 

ISO CALL CHAR 

1 1.0 CALL CHAR 

170 CALL CHAR 

IB'. i [ 



■ff7f;fifof0703oi 
"b0coe0fof8fcfeff 
"fffefcfbfoeocobo' 

'•'.> 1 03070F 1F3F 7FFF 
"FFFFFFFFFFFFFFFF 



190 CALL CHAR 

TOO CALL COLOR (12. 

210 CALL COLOR (1.9. II 

220 RESTORE 270 

230 FOR C-l TO 60 

240 READ A.B.D 

230 CALL HCHAR (A.B.D 3 

260 NEXT C 

270 DATA 5.13.127.5.14.127,5,13 



TV 



-99/ 4 * 



127 

2BO DATA 



290 DATA 



300 DATA 



5, 17 



127 
2,7.127. i; 



127. 14.: 



2, IB. 



27,13. 11, 127. 14 



27 



_i 



9, 123, 15,20. 
26 

27, 14,22, 127, 15.22, 123, 13,23, 
27 
27. 14,29, 127. 13.29, 127, 14,26, 



, 127, B, 14. 



27. 14,20. 
27, 12.23, 



27. 14,27, 



,5, 17. 127, < 



23, 13.9, 127, 



,20,127,12,20, 



TAB»3M -POURSUK 



310 DATA 
2.23. 
320 DATA 
5,25. 
330 DATA 
340 CALL SOUND 
330 CALL SOUND 
360 FOR A- 1 TO 600 
7.70 NEXT A 

390 CALL CHAR140, "1B3C76FFFC7F3C1S*1 
390 CALL CHAR(35."183C7E3A7E66FFAA"1 
400 CALL CLEAR 

410 PRINT TAB<31; "VOUS ETES UN "lCHR»<40 
MECHANTS "!CHR*<35) 

420 PRINT :::"APPUYER SUR A OU "::"B0UTON DE 

430 CALL SOUND ( 500. BBO. n 
440 CALL KEY(l.RV.EV) 
4SO IF RV-1 THEN 470 
460 IF RV IB THEN 440 
470 CALL CLEAR 

400 REM 

49n REM rlUSlDUE DE DEPART 

300 REM 

310 RESTORE 360 

520 FOR Z-I TO 29 

530 READ A,B 

340 CALL SOUNDtB.A. 1 ) 

330 NEXT Z 

360 DATA 323,200.323, lOO, 323, 100. 932. 10O.7B4. IOQ.523, 2«0, t,22, 

370 DATA 323,200,323,100,523.100.932,100.764.100.323.200,932, 

5B0 DATA 323,200.523, 1O0.523, 100,932. 100.794,100,323.200.622,200.622 

390 DATA 659,100.740.200,699.200.622.100.323,100.639.200.323.450 

600 CALL CLEAR 

610 REM 

620 RE" TABLEAUX 
630 REM 
640 NT-NT*1 



BOUTON DE TIR." 



■ .;:■■ 


] ■■■ : B 




B-17 


1 3 1 a 




I 520 


k=:t. 


i a & i 


c-ia 


1340 


E-17 


1330 


Q ■ 1 ' 




R- 1 1 


1 S 7 1 


"■■ i 


1 C .S" 


B-17 


1390 


N-17 




C-ll L HChARiA.B. 321 




CALL GCHARf I, J.G) 


1620 


IF G-64 THEN 257u 


1630 


IF G-95 THEN 2530 


1644 


IF G-60 THEN 2620 


1630 


IF B-73 THEN 2630 


1660 


CALL HCHAR(I.J.O) 


1670 


A- I 






1 690 


IF KM THEN 2130 


i TOO 


IF 1 >W THEN 21 BO 


1710 


IF J 7 THEN 2230 


1 '-'" 


IF J Z THEN 22B0 


: 7 7-n 


IF J.S THEN 24BO 


i r40 


IF J<B THEN 2430 


i mo 


IF 1 >R THEN 23B0 


1760 


IF 1<R THEN 2330 


1770 


CALL HCHAR(C.D.H) 


1790 


IF W«I THEN 2820 


1 TIB 


CALL HCHAR(W.Z,33> 


[BOO 


C'W 


1 B 1 


D-Z 


1920 


CALL HCHARlM.N.GH) 


1830 


IF R-I THEN 2830 


1840 


CALL HCHAR(R,S.36I 


1930 




I860 


N-S 


1880 


REM DEPLACEMENT 


: B9i i 






1900 


CALL KEYll.RV.EVI 


: 9 ', • 


IF EV-0 THEN I960 


1920 


!F RV-1 2 THEN 2070 


1950 


IF RV-3 THEN 2100 


1940 


IF RV-t, THEN 2050 


1 9S ■ 


IF RV14 THEN 2030 


I960 


CALL JOVST 1 1, X, V) 


1970 


if »=4 m 


1980 


IF X--4 THEN 2100 


1 99< ■ 


IF X-0 THEN 20OO 



4 THEN 2030 
-4 THEN 203O 
1600 



670 
■ BO 
690 
700 
710 
720 
730 



F NT>1 THEN 3760 



THEN 3B60 
THEN 3910 
THEN 3960 
THEN 3760 
THEN 3810 
THEN 3860 
THEN 3910 
THEN 3960 



NT-7 
T NT-B 
:F NT -9 
F NT-1C 



1070 DATA 3,0,7.9.9,0, 
1O90 DATA 5,0,0,0,0,0, 
1090 DATA 3,0,7,0.9.0. 
1100 DATA 5,0,7.0,9,0, 
1110 DATA 3,0,0.0,9,0, 
1120 DATA 3,0,7,0,0,0, 
1170 DATA 5.0,7,0.9,0, 
1140 DATA 3.0.7,0,9.0, 
1130 DATA 3,0.0.0.9,0, 
1 160 DATA 5.0.7.0.9,0. 
1170 DATA 3. O. 7.0.9,0, 
11B0 DATA 3.0.0.0,0,0. 
1190 DATA 5.0.7.8. 



1240 CALL CHAR 

1250 CALL CHAR 

I26(> CALL CH*W> 

1270 CALL CHAR 

1280 CALL CHAR 

1290 CALL COLOR (2 

1300 CALL COLOR (1 

1310 CALL COLORI4.7, 

1320 CALL HCHARI24.5 

1330 CALL HCHAR<2 

1340 CALL HCHAR (24. 9 

1350 CALL VCHARI3.3 

1360 CALL HCHARI4.6 

1370 CALL HCHAR (4. 29 

1390 CALL HCHAR'22.6 

1390 CALL HCHARI22.2I 

1400 CALL HCHARill, 

14IO CALL HCHAR (15, 

1420 CALL HCHAR'19. 

1430 CALL HCHAR'B. I 

1440 REN 

1430 REM DEPART DU 

1460 REM 

1470 0-40 
1480 A-IB 



1B3C76FFFC7F3C19 
1 93C6EFF3FFE 3C 1 9 " 
1 93C 7E3A7E60F FAA " 
1 B3C 7E3A7E 66FF A A " 
O40816I01A67F762" 




730 IF NT? 10 THEN 4070 

760 REM 

770 REM CONSTRUCTION DU LABYRINTHE 

790 REM 

790 CALL SCREEN 14) 

BOO CALL COLOR (8. 2.13 

BIO CALL CHARI93, "FFFFFFFFFFFFFFFF"! 

920 CALL COLOR (5. 13, 1) 

830 CALL CHARI64,-0O0O0O7E7E"l 

940 FOR 1-3 TO 22 

950 CALL HCHAR(I,5,64,25) 

960 NEXT I 

970 CALL CHAR(42."03071F3C7C7FFFFF") 

9B0 CALL CHARI43.-C0E0FB3C3EFFFEFC") 

890 CALL CHAR(44, "FFFF7F7C3C1F0703" I 

900 CALL CHAR(43,-FCFEFFFEFCF9E0C0"> 

910 CALL HCHAR(6,B,321 

920 CALL HCHAR 16, 26,32) 

930 CALL HCHAR I20.B, 32> 

940 CALL HCHAR 120, 26, 321 

930 RESTORE 103O 

960 FOR PP-3 TO 23 

970 FOR ZZ-1 TO 23 

980 READ DO 

990 IF OO-O THEN 1010 

lOOO CALL HCHAR(PP,O0.95) 

1010 NEXT ZZ 

1020 NEXT PP 

1030 DATA 3,6, 7,8,9, 10. 11, 12, 13, 14.13. 16.17, 10.19,20.21,22,23,24,25,26,27,29.29 

1O40 DATA 3.0.0.0,0,0.0,0,0,0,0,0.0,0,0,0.0,0,0,0,0,0,0,0,29 

10SO DATA 3.0.7,9.9.0.11.12.13.0,13,16,0,18, 19,0,21,22,23,0,23,26,^7,0,29 

1060 DATA 5, O, 7, O, 9, O, O, O, O, O, 0,0.0,0. 0,0, 0,0,0.0, 23, < 



11,0,13, 14.1 5, O, 17.0,19,20,21,0,23.0,23,26.27,0.29 
..0,0,0,0,0,0,0.0.0,0,0,23,0,0,0,0,0,29 
0,13,0,13, 16,17, 18, 19,0,21.0,0,0,25,0.27,0,29 
,0,0,0,0,0,0.0,0,0,0,0,23,0,25,0,27,0,29 
,0,13,14,0, 16, O, 19,0,20,21.0,23,0,25,0,0,0,29 
,0, 0,0,0, 16,0, 19,0,0,0.0.23,0,25,0,27.0,29 
1,0, 13,14,0, 16.0.19.0.20.21,0,23,0,25,0,27,0,29 
11,0, 13, 14,0, 16. O, 19,0,20,21,0.23,0,25,0.27,0,29 
1,0,13,14,0, 16,0,19,0,20.21,0,23.0,23.0.0.0.29 
0,0,0.0.0,0,0,0,0,0,0,0,0.23,0,27.0.29 
,0, 13. O. 13, 16. 17.19, 19,0,21.0.23.0.23,0,27,0,29 
, . O, O, O. O. O, O, O. O. O. O, O, 23, O, O, O, O, O, 29 
1,0, 13. 14. 15, O. 17.0,19,20,21,0,23,0,23.26,27,0,29 
1200 DATA 3,0.7.0,9.0.0.0.0.0,0.0.0,0,0,0,0,0,0.0,25.0,27,0,29 
1210 DATA 3.0.7,8.9.0, 1 1 . 1 2. 1 3, n, 15. 16. H. IB, 19, o. 21 . 22. 23.0,25. 26. 27.U. 29 
1220 DATA 5.0.0.0,0.0.0.0.0.0.0,0,0,0,0.0.0,0,0,0,0.0,0.0,29 
1230 DATA 5.6.7,8.9,10,11. 12.13, 14,13, 16, 17.19. 19.20.21.22.23.24.25,26.27,29.29 



2920 CALL aOUND<AB.BA, tl 

3930 NEXT Zx 

2940 DATA 200.262.200.247,200.220.200.196. 

200, 173.200. 163.200. 147,500, 131 

2950 SCORE -SCORE*SC 

2960 PRINT :ti"SCORE FINAL-"f SCORE 

2970 IF SCORE HI6HSCORE THEN 2990 ELSE 299C 

29BO HIGHSCORE-SCORE 

2990 PRINT "HIGH SCORE-" J HIGHSCORE 

3000 PRINT ::"APPUYEZ SUR A OU "i:"BOU 

TON DE TIR. .. "ii "POUR REJOUER. " 
3010 CALL KEVII.RV.EV) 
3020 IF RV-18 THEN 3680 
3030 IF RV-1 THEN 36B0 
3040 GOTO 3010 
3030 CALL SCREEN 14) 
3060 NP-0 

3O70 PRINT Lt"e TABLEAU" 
3090 SCORE-SCORE*SC 
S090 SC-O 

3100 PRINT "SCORE-'ISCORE 
; 10 RESTORE 3160 
:i20 FOR TT-1 TO 9 
■ X "' READ PR 

I CALL S0UNIM2OO.RR, It 
1150 NEXT TT 

i DATA 262.294.330.349,392.440.494.323 

"03071F3C7C7FFFFF") 

"C0E0F93C3EFFFEFC" ) 

'F3F1F0703") 

'■FCFEFFFEFCF9E0C0" > 




1170 CALL CHARI42, ' 

H90 CALL CHAR143, ' 

CALL CHAR!' 

3200 CALL CHARI45,' 

3210 FOR XJC-30 TO 1 STEP ■ 

7.220 CALL HCHAR I 13. XX. 41 I 

3230 CALL HCHAR ( 13. XX-2. 35) 

3240 CALL SOUND 1 400 , -9 . 1 1 

3250 CALL HCHAR : 15, X < . 7.2 i 

3260 CALL HCHAR 1 15. XX + 2. 32) 

3270 NEXT XX 

3280 CALL CLEAR 

3290 FOR YY-4 TO 32 

33O0 CALL C0LOR(2.1,l) 

3310 CALL HCHARI I4.VV-3.42J 

7720 CALL HCHARCI5, YY-3,44) 

3330 CALL HCHAR ( I3,W-2,431 

3340 CALL HCHARC14, VV-2,431 

3330 CALL C0LOR(2,5. it 

3360 CALL HCHARU3.YV.33) 

777Q CALL SOUND ( 200. -B. 11 

3380 CALL CLEAR 

3390 NEXT YY 

3400 RETURN 

3410 CALL HCHAR(24.9,32> 

3420 CALL HCHAF (W. i 

3430 CALL HCHARfl,. 

3440 CALL HCHARIR.E 

3450 CALL HCHAF 'C.I 

3460 CALL HCHAR tM.r 

3470 CALL HCHAR 'A. I 

3490 GOSUB 41O0 

3490 GOTO 1360 

330O CALL HCHAR (24, 7, 32) 

3310 CALL HCHAR(W,i 

3320 CALL HCHAR I I , . 

3530 CALL HCHAR I R,' 

3540 CALL HCHAR(C,I 

3550 CALL HCHAR (Pl.t 

3560 CALL HCHAR (A. I 

357U GOSUB 4 lOO 

3590 GOTO 1360 

3590 CALL HCHAR (24.5, 321 

36O0 CALL HCHARIW.i 

3610 CALL HCHAR < I,. 

3620 CALL HCHARIR.S 

3630 CALL HCHARIC.I 

3640 CALL HCHARIM.P 

3630 CALL HCHAR (A, I 

3660 60SUB 4100 

3670 GOTO 1360 

3680 L-l 

3690 SC-0 

37O0 SCORE-0 

3710 k-0 



ELSE 1770 



GH-95 THEN 2460 ELSE 1770 



SOTO 1660 
SC-SC*10 

CAIL SOUND'IOO.RGO. 10) 

IF SC 'NPO THEN 2740 

REM 

GDTO 16. 

SC=5C*5O0 

S0UND13OO.44( 
GOTO 1660 
SC-5C+NI 

CALL SOUND (30O. 440, 1) 
CALL SOUND* 300.880. 1 » 
GOTO 1660 

IF ► «2 THEN 2710 ELSE \ 
GOTO 2390 

CALL HCHARiB. 17.75) 
GOTO 2600 
CALL CLEAR 



J720 


ril '■ 


! 7 30 


tj: .. 


3740 


NPO-O 


S750 


GOTO 470 


S7M 


CALL CHAR<75, '02040B1 1287C7C3B 


3770 


CALL C0L0R(6, 14. 1) 


S7B0 




3790 


NPO I - 1 OOO 


3900 


GOTO 790 


3B10 


CALL CHAR(75, "C070783C1C1C0COB 


7. £!;-'■■ 


CALL C0LDR(6,11, 1) 


-B70 


NPO-IOOOO 


3840 


NP0I-14O0 


J830 


GOTO 790 


3860 


CALL CHAR(75, "007E7E7E7E7E7E") 


3B70 


CALL COLOR (6, 7.1) 


3880 


NPD-150OU 


:b9o 


NFC! ■ 




GOTO 790 


■3910 


CATX CHrtR"(73, ,, O0O0Tj6F9P9EfiAO"> 


3920 


CALL COLOR (6. 15. 1) 


3930 


NPO- 1 800O 


5940 


NP0I-30OO 


39iHJ 


GOTO 790 


Tit,-: 


CALL CHARI75, " 1B244242FF7E7E3C 


3970 


CALL COLOR '6, 2, t i 


I9S0 




3990 


NPOI-40O0 


40O0 


GOTO 790 


4010 


SCORE -SCORE «■ 2>X)0 


4O20 


RETURN 


4030 


SCORE-SCORE* lOOO 




RE TURN 


4OS0 


SCORE -SCORE *300 


4060 


RETURN 




SCORE -SCORE ♦ 20000 


40B0 




4090 


GOTO 650 


4I..0 


CALL CHARI123, ■IB3C7E7E7E7E3CI 


4110 


CALL CHARU24, " IB183C3C3C181B" 




CALL CHAR(123. "994224999924429 


4130 


CALL COLOR(l".r. 1 ) 


•HI ■ 


CALL HCHARtI, J, 123) 


4150 


CALL SOUND! 1000,440, I) 




CALL HCHAR (I, J, 124) 




CALL BDUNDU0OO.22O, 11 


4180 


CALL HCHAR f I. J. 125) 


.i | 9. 


CALL SOUND HOOO, HO, 1) 


4200 


CALL HCHAR'I. J, 72) 


4 2 1 ■ ' 


RETURN 



> READ ■■'■,[..- 



PETITES 

ANNONCES 

GRATUITES 



VENDS VIC 20 + modulateur Noir 
et Blanc + Auto formation Basic + 
Joystick + cartouches de jeux 
prix 1.900 F Christian LAMY 17, 
rue des orangers 06300 NICE, 
Tel, (93)56.65.54. 

VENDS ou ECHANGE nombreux 
programmes de maths, statisti- 
ques. finances, recherche oper a- 
honnelle. Ecrire J.C. REPETTO. 
507. avenue des palmiers 83140 
SIX FOURS 



VENDS pour Tl 99/4A 2 K7 de 
Texas instruments! Basic etendu 
par soi-meme 55 F, (achetees 
110 F) et jeu d'entrephses : 55 F. 
(achete 110 F) + 150 programmes 
a 5 F chaque (liste contre l timbre 
a 2 F) + 2 livres (50 programmes 
pour Tl 99/4A de J. BERNARD : 
60 F (82 F) et jeux et programmes 
pour I'ordinateur texas instru- 
mentede G. CECCALDI 130 F 
(155 E). Tous ces articles sont 
neufs et le port est compris. Ecrire 
a M BELMESSIERI Jean Maxime 
lePuisat 73240 SAINTGENIX SUR 
GUIERS 



VENDS PC Maths de POCKET 
SOFT 100 F ECHANGE contre PC 
UT1L 2 ou PC POLYNOMIAL 
VENDS magneto cassette MK 110 
THOMSON excellent etat (Juin 
83) avec compteur et REMOTE 
400 F LAWEREINS J DO 10, rue 
VANDREZANNE 75013 PARIS. 
Tel. 58848.45 

URGENTASAISIRORIdtresbon 
etat 1 680.00 F Achete Juillet 83 
done encore garanti 6 mois. Oft re 
cassettes avec jeux ZIGZAG, 
MANOIR DU DOCTEUR GENIUS. 
XENON. DEXTERITE. ORIC CALC 
etc.. Christian DEGRELLE 10, 
rue Gogand 59212 WUGNEHIES. 
Tel (27) 60.53.10 (le dimanche 
matin). 

ACHETE pour Tt 99/4A un cable 
de liaison Magneto cassette et la 
cassette BASIC ETENDU. Loic 
HAMON 2, rue du 11 Novembre 
91120 PALAISEAU Tel 014 3162 

VENDS Imprimante pour HP 41 C. 
HP 82143 A (Dec 79) + adapteur 
secteur + nombreux rouleaux : 
1 500 F Patnck IMBAULT 6. rue de 
recluse 77000 MELUN Tel. : (6) 
439 95.85 (apres 20 H) 

VENDS VCS ATARI + 3 K7 : 500 F. 
ou echange contre Tl Extensed 
BASIC pour Tl 99 + Vends logicieJ 
TEXAS : conseil financier : 50 F 
Vends Livres pour PC 1212 : 100 F. 
BEDEL 19. rue Caillaux 75013 
PARIS Tel 583 33 17 

RECHERCHE toute personne 
possedant un TRS 80 modele MC 
10 pour evenluel achat ou echan- 
ges d'idees. de programmes, ai- 
merais une correspondance. 
M.H. FARGEAU 91. rue Michel An 
ge 75016 PARIS Tel 651,5670, 



GOLF pc 1500 



Votre PC 1500 vous transporte sur un veritable Green An- 
glais. Munissez-vous d'un parapluie, on ne sait jamais ! 

Olivier FRANCE 

Mode d'empioi 

Ce programme tenant dans un PC1500avecson module de 4 Ko per- 
met de jouer au golf avec un parcours de 5 trous (on peut changer ce 
nombre) 

Avec la touche on execute le tir, avec + on baisse la puissance au tiret 
avec / on I augmente 
La touche 1 donne un tir a ras du sol 

Les parcours et les longueurs sont tires d'une facon aieatoire Le nom- 
bre de coup par parcours est inscrtt a gauche de recran : un tir trop fori 
fait recommencer au debut du parcours. 




2:REM *PCI580*+ 
FRANCE. 0*** 

3. "A" CLEAR - 
RANDOM . U-RND 
40 + 80- W= 16 r =2 
6. DIM A*r.5>*22 
, BS<7>*2:0=3- 1 
*="7F4E44" 

4;QS>(1 )="4644645 
44E526040". A*<. 
2)="505078644E 
5460".A*C3> = ' 4 
04860787E52604 
0" 

5: A*(4)="4040605 
04E5668S050":A 
*(5>="40406050 
4E566444464040 

6.B*<0>="60".B*( 

1 )="50":B*<3)= 

"48":B*C4>="50 

,B*(5)="60":B 

*<6>="50".B*(7 

)="60" 

7:G0SUB "PRES" 

8:K=K+1:U=RND 40 

+80:O*="404040 

40404040404040 

40404040404040 

9:W=26:F=36: 

C0SU8 "NO": 

WAIT 0:CLS 
10:FOR 1=15T0 U+5 

STEP 10: 

GCURSOR 1 : 

GPRINl "404040 

40404040404040 

":NEXT I 
14:REH — DESSIN 

DU PARCOURT 

15: GCURSOR U: 

GPR1NT A*C1> 
16: GCURSOR F: 

GPR1NT C320R 

POINT F) 
17: GCURSOR U: 

GPR1NT 
18: GCURSOR U+5: 

GPR1NT 1* 
19: CURSOR l: PRINT 

R 



50: GCURSOR 135: 

PRINT 0-3 
51:8*=INKEY$ 
52:REH EXT1NCTI0 

N OU ALLUMAGE 

DU SON 
53: IF B*="Q"BEEP 

OFF 
54: IF B*="W"BEEP 

ON 
55: IF B$="0"LET R 

=R+1: GOSUB "Tl 

R" 
55: IF B*='V"LET 

=0+1 :BEEP 1, 10 

, 75 
57: IF B*="+"LET 

=0-1 :BEEP 1,10 

.75 
58: IF B*="1"LET R 

=R+1: GOSUB "SO 

L" 
61: IF B*="W"BEEP 

OFF 
69: IF 0<=3LET 0=3 
70: IF 0>=9LET 0=9 
120:GOTO 15 
4999:REM TIR 



5000 
5001 



5803 
5004 



5005 
5006 



5007 
5008 



"T1R"G0SUB " 

C" 

F=1NT RND 15 

+ ((UI+7)*C0/3 

>>!C=32 

FOR I=W+9T0 

F:BEEP 1,25, 

25 

GOTO G 

OC/2: IF C<= 

1LET C=l 

GOTO 5008 

IF C=64G0SUB 

"RE": GOTO 50 

30 

C=C*2: IF C>3 

2LET C=32 

GCURSOR I: 

GPR1NT 640R 

POINT (1+1); 

COR POINT (I 

+ 1) 

IF I>=F-7LET 

G=5006 



5010: IF OUGOSUB 

"CONT" 
5012: IF 1+1=UAND 

C=32G0SUB "T 

5013:NEXT I: IF 
INT I>U+3 
GOSUB "RET" 

5014:GOSUB "RE": 
GOTO 5030 

5015:REM --DESSI 
N DU REBOND- 
DE LA BALLE- 

5016: "RE"WA]T 3: 
FOR I=0TO 7: 
F=F+l:UAIT 1 
:BEEP 1,25, 2 
5:Q=F 

5017. 

5017: IF F>UG0SUB 
"CONT" 

5018: IF Q+2=UAND 
UAL BJ<.I)=60 
GOSUB "T" 

5019: GOSUB "H": 
NEXT 1: 
RETURN 

5020: "H"GCURS0R F 
:GPR1NT "404 
0";B*CI): 
RETURN 

5030: GCURSOR U: 

GPR1NT "4040 
404040404040 
404040":W=F- 
7: GCURSOR F: 
GPR1NT 64:F= 
I: GOTO 15 

5999:RErl —TIR A 
U RAS DU SOL 



6000: "S0L"G0SUB " 
C":C=32:F0R 
I=U+10TO W+l 
0+0: GCURSOR 
I:GPRINT "40 
";C0R POINT 
l:BEEP 1, 25, 
25 



600): IF INT 1 >=U- 
1 GOSUB "T" 

6002: GCURSOR F: 
GPRINT "40" 

6004: NEXT 1 

6051: GCURSOR U: 

GPRINT 0*:W= 
1-8: GCURSOR 
I + 1.-GPR1NT 6 
4:F=I+1: 
GCURSOR U- 
INT C0/3>: 
GPRINT "4040 
": RETURN 

6499: REM — DECOM 
POSITION DU 
MOUUEMENT DU 
JOUEUR— - 

6500: "C'UIAIT 0:G= 
5804:FOR 1=1 
TO 5: GCURSOR 
U: GPRINT A*( 
I):BEEP 1, 1, 
l:NEXT I: 
RETURN 

6999: REH --TROU R 
EUSSI — 



7000: "T"WAIT 100: 
GCURSOR U: 
GPRINT "4840 

40":GOSUB "N 
0": GOSUB "EN 
":GOTO 9 

7501: "NO" IF K>5 
GOTO "FIN" 

7502: WAIT 50: 

GOSUB "nUl": 
PRINT "TROU 
No" ;K: RETURN 

7503: "EN"PRINT "E 
N ";R;" COUP 
S":U=U+R:R=8 
:GOTO 8 

8500: FOR X=1T0 

RND CI-30)+3 
0STEP -1: 
GCURSOR X: 
GPRINT "6040 
":NEXT X: 
GOSUB "EFF": 
W=X-10:F=X: 



GOTO 15 
8900: REH --EFFACE 
rlENT DE LA D 
ERN1ERE P0S1 
T10N DU TIRE 

UR 

9000: "EFF"GCURSOR 
W: GPRINT 0*: 
GCURSOR F: 
GPRINT "40": 
RETURN 
9979: REH --COUP 
TROP LONG— 
9980: "CONT"WAIT 2 
5: GCURSOR 80 
: PRINT "TROP 
FORT": GOSUB 
"MU2":G0T0 9 
9385: REM NOMBRE 
DE COUP AU T 
OTAL 
9990: "F1N"UA1T 10 
0:PR1NT " 5 
TROUS EN ";U 
J" COUPS" 
9991 :REI1 MOYENNE 
DE COUP POU 
R CHAQUES TR 

OUS 

9392:PR1NT "MOYEN 
NE : ':WA1T 1 
50:CLS : 
PAUSE INT CU 
•5);" COUPS 
PAR TROUS": 
END 

19999: REH PRES 

ENTAT10N DU 
PROGRAMME ET 
EXPLICATION 

S 

20000: "PRES":WA1T 
0: RESTORE 20 
100:FOR 1=0 
TO 25: READ A 
: GCURSOR 1+6 
5:GPRINT A: 
BEEP 1, 5, 75: 
NEXT 1 
20I00:DATA 62, 65, 6 
5, 73, 57, 0, 0, 
62, 65, 65, 65, 
62, 0, 0, 127, 6 
4, 64, 64, 64, 
, 0, 127, 9, 9, 9 
, 9 

20200 .-WAIT 0:FOR I 
=0TO 150: 
GCURSOR I: 
GPRINT 127- 
P01NT 1:NEXT 
I 

20400. FOR !=0TO 7; 
BEEP I, 75, 20 
0.NEXT I 

20500, r 0R I=65T0 9 
. GCURSOR I . 
GPRINT 127: 
NEXT I 

20550. CLS 



?0600.C r .URSOR 0. 

PRINT "coprj 
JR AUGMENTER 

LE TIR". 
GOSUB 25000 

20625:CLS 

20650: GCURSOR 0: 

PRINT "c.+ >PO 
UR BAISSER L 
E TIR "I 
GOSUB 25000 

20700: CLS 

20750: GCURSOR 0: 

PRINT "CO)PO 
UR TIRER ": 
GOSUB 25800 

20850: GCURSOR 0: 

PRINT "(1)P0 
UR TIRER A R 
AS DU SOL": 
GOSUB 25000: 
RETURN 

25000: FOR I=0TO 15 
5: GCURSOR I. 
GPRINT 127- 
POINT I: BEEP 
1, 25, 10:NEXT 
I : BEEP 5, 5, 5 
'.RETURN 

25999: REM MUSI 

QUE DE REUS 
SITE D UN TR 
OU ET DE COM 
MENCEMENT D 
UN NOUUEAU T 
ROU 

26000: , MU1"DO=105: 
T=80:SO=68: 
M=82 

2688I:F0R I = I TO 5: 
BEEP 1, DO, TP 
:BEEP 1, MI, T 
P:BEEP 1, SO, 
TP:NEXT I: 
RETURN 

26005: REM MUSI 

QUE D UN COU 
P TROP FORT 

26010: "MU2"SI=112: 
00=105: RE=93 
:MI=82:S0=68 
: TP=80 

26811: BEEP 2, DO, 38 
8: BEEP 1,D0, 
98: BEEP 1,D0 
, 270: BEEP 1, 
Ml, 300: BEEP 
1, RE, 90: BEEP 
1, RE, 270: 
BEEP 1, DO, 9 

26012: BEEP 1, DO, 27 
0:BEEP 1, SI, 
90: BEEP 1,D0 
, 540:RETURN 



STATUS 1 



Suite de la page 13 



2530 



MtltV J(H1 THEN 1200 ELSE 2020 

4 ' 

PEN III TRACE OE COURSE AVEC IWtlFS I0PTICNS 3 < 



J'JU0;RC<EI1:AC'ON:GOSUB 1500:6010 2000 

'''B'hlF J-K! IHEN 2020 ELSE GOSUB 1600 

Rt>R:AC:AD:X'0:BOSUB IIOO:Afl<[BlJS 

lr 0P=4 THEN LPNINT-H-NIVHY ELSE LPRINfD'ltf, 

SOIG 1500 

1 ' 

REIi in CALCUL OU DEPLACEHSHT ELENENTAIRE III 



REN m IRACE D'UN RDIIF III 

1 - 

FOR dO 10 N-|:60SUB MOOiLPRlRT'J'Bf.-RY: 
9 ' 

RER Mi INCREREH1ATI0H OU RAYON III 

1 ' 

IF IR-0 SOIO 1610: IF ARM GOTO 1620 
NU= J ROD HP: IF HU>0 SOTD !630 
RiRUR 

If 0P=2 TREK REIURR ELSE 1700 
9 ' 

RER III INCRENEN1AT10N DU COTE OU NOTIF I 

1 ' 

IF ICO GOTO 1800: IF RR=1 GOTO 1720 
RU< J ROD HK:IF HU>0 GOTO IBOO 
CH-CR.IC:GOTD 1800 
' 

DE LA COULEUR in 



M) ON KC GOTO 1BIO,!B20,1B40 

:0 ]]■ J ROD RC:IF JJ>0 THEN RETURN ELSE JC = IJOIIH0D 4: SOTO 1B50 

'0 JJ-4IRND<J1:IF JJ'JC IRER RETURN ELSE JC'JJ 

10 LPRIRT'C'IJC 

REIURR 

ID ' 

'0 REN ••■ INVERSION OE LA SPIRALE SIRPLE m 

'1 ' 

4) CLSllNPUT* TRACE STNETRIOUE'iRI 

.0 Rt"LEFT4IRA,ll:lF Rl>'0* THEH 10=1 ELSE 2020 

CLSlINPUPAVEC LA RENE COULEUR'lRA 

10 RliLEFTIIRI.ll-.IF R»''0' THEN 2240 ELSE 2220 

11 ' 

'0 REN III INTERSECTION DU TRACE m 

l| ' 

i0 IF IRNETI-'A'THEN 2020 

OR OP GOTO 1120.1230,1320,1320 

OCLSllNPUT' LE OESSIN ESt-IL TERHINE-1R4 

10 Ri.LEFH(BI,l!:!F Bl='0' GOTO 2400 

14 ' 

REN in CRANGENENT OE COULEUR HI 

l| ' 

'0 CLG:INPUT* VOUEI-VOUS SEULEHENI NODIFIER LR COULEUR'iRA 

RI>LEFTKR4,lllir R4>'R* SOTO 2270 

'0 INPUT" NOUVELLE COULEUR CH01SIE lOmoif,!' Bl w,2..-Tt,3=rw9*':TC 

10 LPRIHI'C'i'C 

PRIHT* POUR IHTERB0I4PRE L'EIECUTION.APPUYEB SUR LA TOUCHE IB" 

iO DN OP GOTO 1120.1230,1320, IJ20 

i9 ' 

REH in CODIFICATION DU TRACE DM 

1 ' 

OCCSilRPUr VOULEI-VOUS LA VALEUR OES PARA- HETRES A fARREPi 

R4=LEFT*lfi». 1I:1F RI-'N' GOTO 2350 

PRlHT , RBrON=.;R; , pisVANGL£-- , SAHi , d4gresV ->• 

IF INFETI." THEN 2300 ELSE RI'RiCOS'ARlPl/IBOl iHy'RlSIHIANiPI/IBOl 

PRINT* Du MCDii in l.r •.'Ii'lHtrDH'.'T'.iHTI'RiS --)* 

IF INFEri-" THEN 2370 



PNINT' LONGEUR DU COTE DU HOT!F--;CH;-pis 
IF !*EY4=" THEN 2340 

LPRINT'H 0,0"lIF JDO THEN NY-240-OY ELSE NY-3I2-OY 
LPRINTN D.'HtrLPfllNI.R' 
GOSUB 7600:6010 910 
4 ' 

REH Hi FIN DU TRACE 

1 ' 

IPRIAPH 0,0-:LRRINT*N 0.-300':LPBINT'A' 

CLSMNPUT* VOILA.C-EST FINP VOULET-VOUS FAIRE 

B»'LEF14IR4,1I:!F RI.'O' SOTO 220 

CLS:PRIRf ALORS.AU REV0!R":ERD 

9 ' 

RER III RELECTURE KS PABAHETRES m 



DN Of SOTO 2520,2530.2510.2540 

!FHK>3 AND MM) OR N=15 IIHER 2590 ELSE 2540 

IFIR19 AND K14IS0T0 2590 

IF K<I6 AND NT.999 THEH 2550 ELSE 25*0 

CLS:PR!NT-Pit d'Arril lutolitiguc Du tnci -l-VGOIO 

IF RMS AND KOI GO10 2590 

CLSlPRINT' • PlfMltri'lKI'l'.DtlKMTIKIiFBIK) 

IF IHrEY4=" THEH 25B0 

HE1I:RETURN 

4 ' 

5 REN HI CORRECTIOH OES PAfiARElPES m 
A • 

CLSlINPWT' CDNBIEN DE OONNES V0ULE2-V0US HODIFWlFH 

FOR F'l 10 rn 

INPorNUNERO OE LA BONNEE':,:- 

IF W)0 AND M<20 SOTO 2650 

INPUT- NONERO INVALIOE. NOUVEAU HOHEP0*TTR:G0T0 263 

INPUT- HOUVELLE VALEUB DU PARAREIRE'lIINri 



cw 



II Mm DESSItt'iRI 



J40** 
-& 



790 MH HI IHPRESSiOr. DES PflfiflBErRES l»l 

791 ■ 

!» IF JDO THEN LPRINT CHMUBI iLPFIHT'H fi.ZlV 

•BIO LPftlNT CHHtll7(:LPRINT[],0]:fOR K-l 10 It 

»8J0 IF K=8 Of) rt'12 GOTO 3840 
= ■■:■ [F JT>0 THEN LPRINT KjAldOIUSlNG'lHU'iTIKI 

'840 !F JT>0 THEN LPRINT TUBlJO'JTtSliUSIWIttf; U.t.) 

■r.: BOTO 2BBO 

'81.0 IF JT=0 THEN LPftlNT rillKIOiUSlKG-HI.I'inn 

!B70 IF JDO THEH LPftlNT TABfSO.JTtSlllJSIHS'M.I'iTlltl 
:«»■:■ neit k 

IBM LPV,lNT:LPRI«.T;tPR!NT:LPRINT:LPHlNT!lPRIHT:H*'0V-22B: 
JTtjT'iifiETURN ■ 



»=T(l!:0I-»T!l)iB."T(ll:JS'I(4i!lA!T(5(!AB«T(6i}l 
iO t1«TllOI:C11"!Ull:IC»t(i;):NB'T(lJI:Ofl>!(Hl:JO"! 
HT-TII6l:i:C-ni7l:HC.TUBI:JC-Tll») 



(7>: [R-=Tia> :HR=T(>5 



PAPY FAIT DE LA RESISTANCE 



Aidez ce pauvre PAPY qui est completement perdu dans 

cette ville. 

La seule chance pour lui de s'en sortir est d'essayer de 

soudoyer ses poursuivants : 2 authentiques gestapistes. 

Pour cela, guidez le pour qu'il ramasse des pieces et des 

pieces, toujours plus.... 

Quand il n'y en aura plus, il y en aura encore, mais les 

agents iront de plus en plus vite. 

Philippe LEFRANQOIS 

Mode d'emploi : 

Ce programme est en fait compose de 2 programmes 

- 1 e ' : generateur de caracteres 

- 2 eme : jeu lui-meme 
Pourjouer : 

- mettre la cassette au debut 

- mettre le compteur a 000 

- avance rapidejusqu'a 010 

- faire LOAD, puis RUN (ou mieux ; shift run/stop) 

- puis attendre (environ 2 mn 30 s) 

- pour commencer, appuyer sur le bouton rouge 

- a la fin du jeu. appuyer sur le bouton rouge, permet de rejouer. 
Programme destine a 

VIC 20 + extension 3 k (VIC 1210. par exemple) + joystick 
En haute resolution (200 x 240), et a difficulty croissante. 



190 P0KE36S79,e PUKE3606*.i42 

1 Id PRINT'Tia ar*l IIW-*-. I ■' 

120 PKINT'B »-TM_t" 

130 PRINT'-B si--»-.«n *.•--" 

140 PRINT"* THI, RESISTflNT.EST fiUX PRISES BVEC DE VI-LfllNS 9LLT\tS-* DE LIT ; 

150 PRINT" I "»I»T. .." PRINT" "DUR S'EN SORTIR. 'JNESEULE SOLUTION RflMflS-SER LES 

160 PRINT" PIECES (CELLESQUE LES HABITANTS OUT PERDU PENDANT LEUft EXODE). POUR ' 

170 PRINT"ESS*VER D -*-n~_ SES POUPSU I -VftNTS ..." 

160 PRINT"* AlE FETITE MINUTE »xH 

530 P0PE52,i5 PGKE56 k5 CLR 

510 SuM=0 

520 FQRfl=-6144TCi6559 

530 RErtlX SOM-SOM+C PUKEH.C MEXTfl 

T.4y Fufi=i=6656T06671 

550 POKEfl-B NEXTFI 

960 K'R*-69l2TQ7e?I 

570 PEADC SWI-SQM+C Pu^EH.C MEXTfl 

580 IFS0MO37«89THEHPRIKT"IRREIJH t€ DftTfi I" 

5-3EI PL*E45.i'21 P0KE46. 17 CLR LQFI7J PUN 




i ^.^t.; 



11443 

Lisa 
use 

1 1 . >.' 



1230 
1246 
1238 

14.:.' 

[496 

l l,w 
1 5 1 u 

1 5 38 

1T.4M 

1 558 

IT-.'.' 
1578 



DFHTH62, 125, 231, 135. 135. 135,135. 135. 135- 135. 135- 135. 135.: 
DmTH^.4. 253, 251. 7. 7, 7. 7. 7, 7. 7, 7, 7-7, 7. 6.252 
DWTA254. 253- 251- 7, ?,?,?, 7,7, 7, 7, 7. 7. 7.7. 7 
DflTfl255,235,255.9,0,e 9,0,0. 8,8-0,8. 0,0,250 

IW1A135. 135.135. 135, 135- 135.135. 133. 135.135.135. 135.135. i 

DRTA135.135. 133, 133. 135.135. 135, 135,135135 .135 1 ^ 1 > : ' !■:■', 

DflTflS3. 127,255, 128. 126. 128, 126, 128,128, 128. 1*8. 128. 128. 128, 128,255 

rjflTfl63. 127.255. US. 126. 128. 126. 126 ■ 128- 128 128. 128. 128, 128. 128. 135 

DRTA135. 135, 135, 7,7. 7, 7, 7, 7, 7, 7, 7,7, 7. 7.235 

DftTH62. 125, 251, 135 135. 135. 135 135, 135, 135, 135, 135, 135, 135 135,135 

TJHTai35- 135, 135, 128. 128. 126. 123. 128. 128- 128- 128- 128. 128. 128. 126.255 

DRTfl255. 255. 255, 0.0. 8,0. 0.0. 0.8, 0,8. 6.0. 135 

DftTH102.l53. 153.126. 133-126, 153. 153,24.60.60-102. 189,1! 

DRTfle.e.e- 0.0.00.24-24.0. 0.0. 0.0. 8,8 

DflTne.76,76,S8,127.13,13.13,12,28. 36.66.34,17.35.0 

DHTA0 ■ 50 ■ 56 . 34 ■ 254 , 176, 1 76 .176.48,40.38. 66 .68, 1 36 1 96 ■ 

DATH0. 92. 92. 72. 127,23.29.29.28.20.29-29.20.20.28.0 

BATHS. 29. 29 . 9 . I.;' . 92 , 32 . 9i . 28 . ;© . £0 . 20 . 20 . 20 . 20 . 

D8T80. 0.8,0. 126 LIS, 112, 1 26 . 126 . 2. 98. 126- 8.0. 0.0 

DRTflB, 0.8. 0,126, 118- 112. 112. 112. 112. US. 126.8.0-0.0 

D6Tft0. 0.8. 0.126. 118. 118 -118, 118. 1 18. 118- 126.1?.'? m 

DRTfl0.0-0,0.126118, 118, 126- 126- 116. 118. 118- 0.0.0 

D8TB0. 0. 0.0,126.112,112. 124, 124. 112,112, 126- 8 6 B 

DfiTfl0.0-0.0.124. 118.118.118,118. 118.113. 124.0.0.0 

DATH10. 0.46. 40. 62. 10.58.'.^ ■' 6.72.0.0 

DRTR0. 0.0-8, 126,66.66.66 66.66.126. 126 -00. 8- 8 

DRTR0,e 0.0,24,24,6, 8,S,8.62,62,0,e,0.0 

ORTfie, 8.0,0, 126, 102,6,8. 112,96. 102, 126.0,0,0,0 

:m!hO •: 0'3. 126 -38. 2. 30. 6 6. 102.126.8.0,0.0 

DRTH0. 0.0. 8,96. 96. 98. 98. 126 -6. 6. 6. 0.0. 8.0 

DATfl0.0.0,0, 126.70.64.126,6-6.102.126.0.0.0.0 

PATfie. 0,0.0,126. 70. 64. 126. 66, 66. 126. 126. 0.0. 0.8 

UrtTrt0.0.0.0.u6.98.2.4.24.24-24.24.0.0.0,0 

DRTRU. 0,0. 0,126. 66. 66. 60. 66. 66. 126. 126. y.8 .0.9 

DRTR0. 0,0.0, 126.70,70. 126.2.2.98. 126. 0" 9 8 



COMMODORE 



2oe REM ♦»Mntt»t»«»M»M«lnn. OENERfiLE* 
210 8=36879 POKER ■ 25 POKER*!, 18 P0KE(H2,2S POKER+3 L53 POKE 
220 POKEA-10.254 P0KE37154.127 
t 30 REi: = .-i0U0 

.-».' REM ♦***»***»*»•♦+♦♦♦** imit. PRRTIELLE* 3230 

310 »D=4. 5 RESTORE 3240 

320 PH=7342 81=7855 32-7854 3250 

330 PRINT"3 STUVM 00 iw,n ■ H6Q 

.--ly >_.u3UB6018 3270 

350 POKEPH-15 R0KES1 .25 P0KES2-25 3280 

360 GOSUB7010 : :_-;.i 

378 POKES]. S1=S1*2 POKE3L25 3300 

380 POKES2-0 32=32-2 P0KES2.25 3310 

s.n.i REM •*«»*B0UCLE DEFLflCEMENT PRFV ET SS* 3320 

510 L-OSUB1010 iJA' 

528 VIi=VD-M 1FVD:-MiTHENVD=0 '3GSUB2010 ■ - i " 

530 00T0518 3358 
1000 REM *«**W«M«4Wtt*«***W**«**J0V$TICK* 

1010 R=PEEK' 37137 .FEEt '37152 '-30? 3410 

1028 IFR--4THEHDH=-25 FH=1 7+ SON'. I 3-FH - OOTO1100 3420 

1O30 IFR=-STHENDH=25 FH=17*SGN( 18-FH . GOTO 1 188 3430 

1040 IFR=-16THENDH=-1 FH=15 OOTOI10B 3440 

1050 IFR=-12STHENDH=1 FH=16 OOTO1100 3450 

1068 RETURN 500 

1100 lFPEEK^PH*DH.=0THENSC = Si".-i 00101 1 3" 3510 
1110 IFFEEMPH'DHi = 14TH£NSC*3'>10 HP=HP*1 GOTO1130 3520 

1120 RETURN 3530 

1130 PRINT-aMMMI-iCCiKE 3548 

1140 FOKEFH.O PH=PH*DH FOKEFH.FH 3550 

1150 IFHP=15?THEMUP=G OOSUB6010 3560 

1163 OO3UB3810 3570 

1178 RETURN 3588 

2000 REM ♦ •♦♦•♦♦♦♦•♦•♦♦♦»*»*IiERLhlEMEN1 . » 3590 

2010 RErtDDl IFlil=0THENRF , :T'"'PF OuTi.i,:060 3600 

2028 Fl=FEEl ' il+Dl - R0KES1F1 SI=31*M pnit.-l '. 3610 

2038 RERDP2 3620 

2040 F2=PEEK'.S2*L i ' F0KES2.F2 S2=3 i *D2 F0IE32-25 3630 

2058 OO8UB3810 3700 

2060 RETURN 3710 

3000 REM ♦♦♦*t****»**»***»*»*»**trHl-TUPE: PRINT* 3720 

3810 IFPH=SlORPH=S2THEN3210 3730 

3028 RETURN ^/4m 

3^00 PEN *»*»«****»**»»4*t + «t»**»*4rf3FTliPF* 3750 

3210 3S-36877 3760 

3220 P0KE8S+1 , 13 i.-;i^ 



FORflfl=lT015 

FORBB=1TO10 

POKESS.170 

MEKTBB 

POKESS-0 

FORCO1TO10 

MEXTCC 

NEXTRR 

P0KESS178 

F0RRR=15T01STEP-1 

P0KESS+1-RR 

POKESS.0 

NE..TRM 



\|\C 



20 



F'RINT"S"TRB' . 19+HH.-" " 

IFHM-5THEM3510 

POKEPH-0 POKES1.0 POKES2.0 

POKES1-D1 - P0KES2-D2, 

PH=7S42 POKEPH.FH OOTO510 

REM 44«**«***************»«FiN FRRTIE*INT* 

POKESS+1-13 

F0RLL-238T0128STEP-1 

P0KESS-1.LL 

FORMM=ITO20 

ne;:tmh 

MEXTU. 

POKESS-1,8 

POKESS.208 

FORLL=15TO0STEP-.85 

POKESS*l,LL 

NE^TLL 

POKESS.0 

POKESS+1.0 

G06UB7818 

!FSC:>PECTHENREC=SC 

Put ES25, INT. PEC/256> 

P0KE826, (REC-IHT<REty236 '#256 I 

CLR 

REC=PEEKr825^«256*PEEK I 826 i 

FF1NT"*I"REC"IH 

00T031W 




5840 

5830 
5060 

507U 

■ ■■ 



■: ..i5fi 

^060 

6070 



REM ******:»*••♦♦♦♦»*•♦•♦*. •••♦DflTH SS»INT* 

DftTfil, -25, 1,-23.1 .-1.-25.-1,-25,-1.-25,-1 ■ 1 . -1 . 1 .-1 .25.-1 -25. -1 
DRTR25.-1. 1.-1.1,25,-25-25.-25. 1.-25. 1 11 1 . 25. 1 .25 .25,25 
IIRTR25. 25, -1.-1/25. -1,25.-1. 1,-1, 25,-1, 25,-1. -1,-23.-1. -1,-1.-1 
DOTn-23,-1. -1.-1,-1, 25,25. -I. 23, -1,25,25, 1,-1.1.-1 1 -25,-23 -25 
DRTR-25.-I, 1.-1.1.-1.1,25. 1.25. 1.25,1 .-1 ■ 1 -1.25,25.25 
DRTA-1. -1,-1. -1,-1. -1,|, -1-1,-1. 1,-1.-25-1 -25-1 1 -1,1,-1 
DRTR-25.-1 .-25,-1 .1-1-1 .-! .25- -1.25--1.25--1.1 -25- 1.-25. -25. 1 
DRTft-25.1, -25, -25-1. -25. 1.-25-1 .-1 1 -I 1 23.1.1 

DRTR-25,-25. 1 .1.1.1.1,1.1.1.-25,-25.-25.-25.1.-1-1 .-1,25,-1 
DRTfll, -1,1,25.-25,25.-25,23.1 -1 ■ 1 • -1 ■ -25,-25 -25.-25. I --25. 1 . 1 
DRTR-25. 1,-25. 1.1- 1,1.1.1,1, 1,1, 25.1, 25.1.1-1-1-1 
HRTR1, 1,1,1 .1,1,1,1 1 . 1 .-25.25,1.25.1.25.1-25 1 25 
PflTR25.25.25. 1-25.1.1.-25,1.-25.1.1.1,-25,25.-25.1.1.25.-25 
DRTR25. -25. -1.1, -1.1. -1.25. -25.25.-1, 1,-1, I. -1.1,-1 1 ' Z 
DBTfl-1, 25,-1 .25,25.25,-1.-1,-1,-1,-25,-1.-25.-1.1.-1.-25,-23.-21 

Ktn ...♦**.».«*.#»*»»**»*#*»**TnPLER1.'*lNT1' 

HT-NT+1 PRlHT"WTflB<13>iNT; "IMHNr 
PR I NT "HBLDrJDBDDDDliDDIlDBDDDDDDIlC " ■ 

PPlHT'ENNNNtiUHIUIMHUHNUNNNHNNNIIE" . 

PRIHT-EHJN6DBN0DDB1 >BN0W ■■ 

PRINT '■HNIIN.IN.tNJNHBNC-BNHNH&N.tNHB"' 
PRINT"OCNGINENFNPHN>lNNNNENNENE'*". 
PRINT'^ENNNNENNNHNRNTtlTNUHMHI f . 
FRINl-ijINOHNl DBN1NNNENENNNNIINNN" 
PPlNl'lttlNNFNIINNNI BUG 1 HI HBN_lM.tN.T- . 



PR I NT " TMHNNN HI HINNNNHNNNNNENFNE" . 
PRlHI"EHNItODIN> BNODDDDBNGL INNHE " - 
PR I NT "K I»;t IMUMtlt IUMI IHMTJ!lt!Ht<HHHHD I '■ . 

PRINT"a8KDDBW)DDBDimDDDDlH)DDIt(l" ■ 

print" vhtuvx b ;rec 

f'okefh.fh 

DD=DD-.5 IFPD'lTHENr'D=l 

RETURN 

REM ***»**4**#*»*»#i»*«#«»*»»»«HTTENrE»INr» 
7810 IFPEEK. 37152 "PtEl ■ .Vl_:,- ■ .. I77THEH7810 
'020 RETURN 



6120 F 

6140 

6160 
6170 
I » 



CLAVIER 



Pour bien programmer et surtout gagner du temps, il faut 
bien connaitre le clavier. 

Ce petit jeu vous permet de verifier avec quel delai vous 
retrouverez 10 sur 115 lettres, chiffres, signes ou instruc- 
tions du clavier. 

Seul le temps de reponse est comptabilise et indique en 
fin de jeu Le meilleur score est garde en memoire. 

Gabriel DARDENNE 
Mode d'emploi : 

Chargez le programme par LOAD ALL ei lancez le par F1.PO A chaque 

inslruclion affichee au centre de I'ecran. appuyez le plus rapidement 

possible sur la louche correspondante, ce qui efface I'ecran etarrete le 

chronometrage. 

II est bien entendu qu'une seule touche suffit et qu'il ne faut pas 

appuyer au prealable sur F1 ou F2 pour les instructions. 

Un petit commentaire, fonction du temps ecoule. est affiche apres 

10 reponses 

Pour rejouer, appuyez sur une touche, ce qui vous indiquera le record a 

battre et demarrera automatiquement une nouvelle serie de lOafficha- 

ges 

Remarque : les espaces inseres dans les differentes variables t, sont 
importants. Ne les oubliez pas ! 




FX702 



>9: 15S? STEPS 


188 IF Zi38!l=" I 


268 IF Zi84!l=" ! 


BIEN !":60 


ni 


VHR LIST 


ie soto iee:*t*«*t 


RHDfPRC ] DEB 


COS NEXT ! TflH 


TO 448 






29 ***Fjf-762P**** 


(DNS ":K=24i60T 


PRT ":K=78:60T 


488 IF CsHiPRT " 


m 


26 PR6: 


!« COfflfllSSEZ-VOUS 


ON 


OH 


NOYEH !":ffl 






<t .... VOIRE 


1S8 IF Zi36U=" K 


279 IF Z488SJ*" . 


TO 44R 


't 




56 ...CLWIER?,... 


LEN'.SET L CSR 


SRC . RflHI°:K 


418 IF Cil5!PRT "IL 


i) 




68 hmmCOPIRIGHT 


Vffi ":K=3B:60T 


=84:fiSB 516:601 


FROT RNELIOP.EP 


■ 


='35.2 


?8 ..S.BRRDEHHE... 


ON 


328 


!":BOTO 448 


D 


= 


88 ..HEBDOSICIEL. . 


298 IF Zf42S»=" « 


289 IF ZilMil="«) 


429 IF C=18:PRT " 


E 


■ 1 


98 MtlttllltMIM 


mOCSTOP N KEY 


>t£/i«-!»?E»": 


REVEILLEZ-V0I1S! 


F 


= 8 


•98 MHIT 0:PRT "«« 


END ";K=36:60T 


H=Z-88:6SB 528: 


i":60T0 448 


e 


■■ 5n 


«• CLAVIER «« 


OH 


60T0 328 


438 PRT " REY1SEZ L 


i 


= m 


«":IF X=B; X=58 


218 If liWi--" 


299 IF Z<115;l="l23 


E CLAVIER" 


i 


■ 1 


0:SOTO 128 


sdx save p sot 


4567898=":H=Z-1 


448 IF Ci* THEN 488 


i 


. g 


119 PRT "RECORD fl B 


lOfT:K=42:60T 


84i6SB 538:60T0 


458 IF X=588 THEN 4 


I 


■■ 71 


RITREi'lX 


ON 


328 


76 


L 


= 9 


128 HiFOR 1=1 TO 


215 IF Z;54!f=" C 


398 P.|=" ":R)=°SPC" 


468 PRT " RECORD B 


■ 


' ! 


19 


SDXNP11T R SDY 


iSOTO 328 


BTTU !!* 


fi 


= 1 


13BZ=1NT (RflHHIU 


NBET ":K=4S:60T 


318 8SB 568 


478 X=C 





= t 


Wi6=5M:H=31I 


OH 


329 PRT " « RTTENT 


488 IF KEY=™ THEN 


P 


= 6 


HI IF 2£6;*=" « L 


228 IF Z;68:t=" S 


ION ! t ":«HI 


488 


g 


■ 1 


06 IF B IN 


UN VER T LRB 


T B 


498 PRT :60T0 116 


t 


■ 8 


THEH":K=8:G0TO 


DEFH":K=54;60T 


339 PRT CSR BiRi 


588 6SB 548:B!=NID( 


s 


■ 1 


H 


H 


349 IF KEY*B$!T=T+1 


2»12»1HT (N/4). 


T 


= 1 


158 IF 2il2!>=" C 


238 IF Z£S6;l=" 11 


:60T0 346 


li:PET 





■ 5 


EXP SOTO I SOP 


COR PUSS 1 EOX 


359 PRT :NEXT I 


518 BSB 548:Bt=NID( 


V 


= 9 


6SB -:K=6:S0T0 


RON ":C=69:60T 


368 HRIT 30: PRT "TE 


2«8HNT (»/3)>l 


1 


= 1 


H 


OH 


UPS DE REFIEXIO 


!:RET 


X 


= 35.2 


168 IF 2il8!t=" E 


249 IF Z£72!>=" N 


H:":C=RND«T<.12 


528 Rt=" "'MNH.D 


7 


= 8 


S6N RET F INT 


EOY LIST 4 ; "= 


,-2! 


:!»=IIH«1+2*III 


z 


= 7? 


INP "!K=12:H»T 


TO "!K=K!60T 


3~8 PRT CSR 2lCl" S 


T ((8-11/2). 1): 






OH 


H 


EC9NDES' 


RET 






171 if mw i 


25J1IF Z«78U=" i 


388 IF CS121PRT * 


539 6t=Nm(N.l):fl»= 






mmn h nes 


HYP TC 1 SIN 


FORH10RBLE '1! 


" "»B«:RET 






P.PC ":K=18:S0T 


iTEF 'il Vi ; :'' 


":60TO 448 


548 «=Z-Kifl»=l1I0<4« 






OH 


OH 


3S8 IF CilJIPPT ' 


N-3,4):RET 







LES ENVAH ISSEURS B ASic ETEND u 



Ne vouslaissez pas submerger par lesenvahisseurs, later- 
re compte sur vous. Ne laissez pas non plus passer le vais- 
seau de ravitaillement. Un jeu d'arcade sympathique et 
simple. 



Francois LAVIALLE 



90 CALL CLEAR 

100 IMAGE SC0REi4*4* 

110 IMAGE RECORD:**"" 

120 HI-O 

130 CALL SCREENI2) 

140 CALL DELSPRITEIALL) 

130 REM »..•..•...•.•••••••• 

160 REM INITIALISATION 

170 REM ••••»••••••••••••••• 

ISO VIT.BO-3 :: J.Z-2 II MAXI-4O0 ii P-0 =1 CAR-IO it DIF-13 

WO CALL CHAR<32, "00FE8E8ESE8E8EFE") 

2O0 CALL CHAR<4B,' i OOFEeEeE8E8E8EFEOO3B3SieiB!8]B7EOO7EOEOEFE8OS0FEOOFCOCOCFEOEOE 

210 COLL CHAR (52. '■008O84e4FE0C0C0C00FCBOB0FE0E0EFE00FCa4G0B0FEBEFEO0FEB6O6OCOC0C 

OC"l 

220 CALL CHAR(56. "007C4444FEC6C6FEOOFEBEFE0606467E") 

230 CALL CHAR{96, "FFFFFFFFFFFFFFFF") 

240 CALL CHAR(91."0O0O10386C7CFE92 'I 

250 CALL CH0R(40, "OOOOOOIBIBOOOOOO") 

260 CALL CHAR< 12u. ''X.OIOU'-'!<,|>FOF1F3F3F7B7I614QOOOOOOBOBOC060FOFOFBFCFCDE8E86020 




DQF-1 



CALL CHAR (124. "O0O00OO00000073F4F7F000O0O000O000O0O0O000F7EFE07FFFC000O000O0 

CALL CHAR(128."000000O0F07E7FE0FF3FO00OOO0O0O0O000O00O00000EOFCF2FE0OO0000O0 

COLL CHAR (132. "4424421 2088460 1000 1 021 C91 1 1 2224491 9222440B102O031CO044260 1 104 

CALL CHARI 104. "0000000000000000000000404040404000000000000000000000000002020 

. CHAR U 36, ' 



320 CALL HCHAR* I 
330 



r-3 TO 8 :: CALL COLOR IT, B, 2> : i NEXT T 
340 CALL COLOR<3. 9, 2. 4. 9, 2, 2, 6. 2, 14.4,2. 1,9.2.9,2,2) 
350 CALL MAGNIFY(3> 
360 GOSUB 1070 

370 CALL SCREEN(5)ii CALL HCHAR i 1 . 1 , 96 . 768) 
390 DISPLAY AT ( 1 . I ) : USING IIO:HI; 
390 CALL HCHARI24, 1, 136,32) 
400 RANDOMIZE 
410 GOSUB 1490 

> FOR T-2 TO 3 ti V I T) -INT (RNDOIF) »DOF i: NEXT T 



430 CALL SPRIT! 



1*1,120,6, 175, 115.(12, 1 24, CAR, . . . ■;> ,43, 128, CAR, 20, 12 



4BO REM 
490 REM « 

) CALL COMDO 



►1-1B THEN 610 



510 IF K-19 THEN 1540 

520 IF K-B THEN 730 

530 CALL P0SITI0N(42,Al,6l,43,A2,K 

540 «-INT(RND"50)i I IF W-IO THEN 350 ELSE 300 

S50 H-INT(RND-2) : i CALL MOT ION (4H-2, I, -73»130"f 

CALL COLOR(4H«2. I4>i i VIH*2>-75 !i GOTO 3O0 

560 CALL POTTERN<»2, 132) t I CALL. SOUND I -VI). - 7 . O] 



T\-99/4A 



370 CALL I 



CALL SOUND<-90,-7,0> 



>170 OR A2M70 THEN 67" 

i CALL S0UND(-3O, 410,0.-6.0)1 I 
: CALL DELSPRITE (*4,*Z> i I GOTO 6 

CALL DELSPRITE(44,43):i GOTO 7 



sec rem ••-• * 

5 <jO REM TIR 

a oo HEM .........•••..•.• 

610 CALL POSITI0N(41.A3.B3> ! 

. no, 



CALL 5PRITE(44, 1" 



1 TO 3 
630 CALL 8«««(Dl.D2)ii IF DI— 1 THEN 560 
640 IF D2--1 THEN 570 
690 NE X r I 

660 CALL DELSPRITE*44) :: GOTO 510 
670 CALL MOTIDN(»l i 0,0,#2.0,0,#3,0,O»i 
UNO (130, 2 10,0,390. 0.-6. 3) ii NEXT T 

6BC CALL SCREENfS):: J-J-l :: CALL DELSPRITE (ALL) u IF J — 1 THEN 13B0 ELSE 420 
690 p-P»V(2)i: V<2> -INT (RND"OIF ) *DOF : 

(50 Hi 710 
700 P«P*V<3! I! V<3)-INT»RND»DIF)*D0F i: CALL SPRITE ("3, I2B. CAR, 20, 
OTO 710 

7lO DISPLAY ATI i, iBi :US1NG It 
720 REM ............••••••• 

730 RE" PAUSE SUP LA TOUCHE 

740 REM 13) 

750 REM ••»»•••••••••••«••• 

76" COLL MOTION'*].. ,1 , 42, 0, 0,«3,0,0> 1 1 DISPLAY AT ( 3. 23 ) ! "PAUSE ■' t 1 1 FOR I 

00 1 : NEXT I 

770 CALL KEYCl.K.SllI IF fc-B THEN 7BO ELSE 770 

7BO DISPLAY AT13,23)iRPT»< ,3)t!i CALL MOTION («, Z. -V 12) ,«, Z, V C3) ) 1 1 1 

790 REM *•»••*•••*•••••••»• 

BOO REM RAVITAILLEMENT 
810 REM ••*»••»•••••••••••• 

820 HAXI-MAX1*DIF»35 

830 COLL DELSPR!TE("3. 42.44)11 CALL SPRITE (#9. 120, 8. 20. 1 33) 



CALL SCREEN (7):: FOR T-l TO 7 I 

IPKITE(ALL): i 1 

COLL SPRITE (42. 124. CAR, 20. 250, I . - 

CALL SPRITE(43, 12B.COR.20, I 

IF P-MAXI-1 THEN 820 ELSE 30O 



B40 DISPLAY I 



"RAVITAILLEMENT" 



CALL COMDU 



B70 A0-INT(RND-3)*-l t: COLL MOTION 149, 4*Z,A0"2> 

B80 CALL COMD(K.VIT.CH):: CALL COINC <4I . 49, 16, D> i : IF D«-1 ' 

890 CALL POSITI0N149.A9.B9) ii IF A9-1B0 THEN 102O ELSE 870 

900 CALL M0TI0N(*l,O,O,49.0.0> :: CALL POSI TION 149, A, B, "1 . Al 

910 FOR I"0 TO 2 

920 IF B-BIH OR B-B1-1 THEN 950 

930 NEXT I 

940 GOTO 1020 

950 CALL LOCATE ("9, A. HI) 

960 CALL SOUND(-200,~l,0)i: P-P+2O0 :: J-J*l || FOR T-l TO ' 

M0TIDN(49,-16,0> 
970 CALL P0SITI0N<49.A9.B9)I I 
9B0 COLL DELSP«ITE149)i : GOSL 
990 READ CAR i i IF COR-0 THEN RESTORE i 
100O IF Z>8 THEN 1-2 ii DIF-C 
,0. 160,0,-4,4) 

Z-Z-2 ii VIT-3 ii GOTO 420 

COLL SOUND(-250.-7,0)lt CALL PATTERN(41. 



030 FOR T-l TO IO0 Ii NE1 

O40 REM *"**"*h«""""""»«i 

050 REM PRESENTATION 

060 REM «»******"«"*»»»«i 

070 DISPLAY 0T(6, 7) : '■»»»< 



CAJ 



' "LES ' ENVAH I SSEURS. 



"APPUYE 
" 1 -POUR 
" 2 -POUR 
"3-POUR 



SURi' 
COMMENCER " ( 
LA'REGLE'DU-JEU"! 
ORRETER"! 

24, 10,62,250,0,-401 



080 DISPLAY AT(7, 
090 DISPLAY AT(13 

00 DISPLAY ATMS 

10 DISPLAY 0T(17 

20 DISPLAY AT (19 

30 COLL SPRITE (4 

40 CALL KEY(O.K.R>=: IF S-O THEN 

50 IF K-49 THEN 1240 

60 IF ) -30 THEN 1180 

70 IF K-Sl THEN 1230 ELSE 1140 

BO A»-"LE , BUT'DU'JEU"EST - DE - DETRU 
CALL TEXTEIA4.7) 

90 A4-"LA'T0UCHE'I 'PERMETDE 'FAIRE 

T'DE'SUSPENDRE'LE'JEU '•PAUSE." 

'00 CALL TEXTE<A4,7) 

'10 A«-"APRES'UN'MAXIMUM"DE , PaiNTS 

:£■ VO 1 5SEAU 'SUR 'LA" QUEUE "DU'V. 

TE<A4.7) ii GOTO 124 
AT(17,lo)ERASE ALLS 
240 CALL DELSPRITE(*1 .421 
230 CALL HCHAR t 13. 1,96.332) 
260 DISPLAY 0T(7,8> : "LES-ENVOHI5SEURS"t 
2?" DISPLAY ATU6.6) i " 1 -POUR 'MANET IE " I 
2B0 DISPLAY 0T( IB, 61: "2-POUR 'CLAVIER" I 
29m CALL KEY (il.K.SJ i t IF S-O THEN 1290 
500 IF ► -49 THEN CH- 1 n GOTO 1340 
310 IF ►-SO THEN 1320 ELSE 1290 

:i DISPLAY AT(20,6>: "SiGAUCHE DiDRO 



30 THEN 97u 



CALL SOUND (100, I 



ii CALL 5CREEN<7): 
GOTO 980 



RE 'LES 'ENVAHISSEURS 'QUI 'ATTOOUENT *LA "TERRE" 
EXPLOSER 'LES ' ENVAH ISSEURS ■ * * LA • TOUCHE *3 ' PER 



("RAVIl 



'20 CALL 



SSEAU ' DE " RAVI TA I LLEMENT >' 
BIENTOT'Ci END 



1 1 LLEMENT ' ■: POSER ' LE 'NE* * OE ■ VO 



122, 1 S) i "D! TI 



330 FOR 1-1 TO 3O0 :: I 

340 RETURN 

330 REM •*............< 

360 REM FIN DU JEU 
370 REM ..............< 

380 04="F1N-DU'JEU' ' ' ■ 



1 



'VOTRE' SCORE 'EST DE' 



. 15) 

WO IF P HI THEN 1400 ELSE 1G0 

400 FOR T-l TO 3 t: FOR 1-0 TO 30 II CALL SOUNDI-30O,- 
410 IF HI-0 THEN 1430 

420 A4-"V0US'AVEr'BATTU'LE'RECCORD'UUI 'Elol f 'Dfc -"(.SjlHI 
L TEKTEIA4, 131 

430 HI-P ii DISPLAY AT I 1 . 1 1 i USING llOiHIi 
440 DISPLAY 0T(1, 18) I "SCOREi 0000"! 
450 FOR T-I TO ISO ii NEXT T ii GOTO 130 
460 REM •*••»•••••••••••••• 

470 REM ETOILES 



•fcSTR*(P)l. "'POINTS" 



490 CALL HCHAR (3, I 



.,,.- 



NEXT 



FOR T-3 1 



E-INT(RND»25i I 



CALL HCHAR C 



5O0 RETURN 

510 REM •••••»••»•••••••••• 

520 REM BOMBES 

530 REM ....... >*•••*•»••■ 

540 IF BO-0 THEN 530 

550 CALL SCREENI7)ii CALL SOUND <- 100. -7. O: 
1-1 ii DISPLAY AT(2,24)lRPT4(""".B0)l "'"I 
560 CALL DEL5PRITE(42,43): : CALL SCREENIS 
570 DOTO 3,5.7.8.13,6,11,9.12,15,4.10,0 

580 REM 

390 REM 

600 SUB COMD<F,VIT,CH) I! ON CH GOTO 1610,1620 

610 CALL JOYSTII. Y.X) ii CALL MOT IDN (41 .O, Y»VI 

620 CALL KEYU.F.SIii IF F.3 THEN SUBEXIT 

630 IF F--1 THEN Y-0 n GOTO 1650 

640 IF F-2 THEN Y--4 ELSE Y-4 

650 COLL M0TI0N(41,0. Y"VIT)i i SUBEXIT 

660 SUBEND 

670 SUB iiea»(Dl,D21 i : CALL COINC < 44. 42, 18, Dl > 



COLL P0TTERN142. 132.43, : 
GOTO 420 



0!NC(44,43. 18, D2) : 



A4.WJ1I A4-RPT4I .20J1.A4 

1 LEN(A»)*1 ii DISPLAY AT (W. 81 SI ZE I 16) |SEG4(A4. I, LENI* 
IXT I it SUBEXIT 



Suite de la page 12 



Specifications des 2 ports serie : 

norme RS-422/RS-232C de 300 bauds a 270 Kbauds, bit de depart, et fin de 
donnees ; 5.. 8 bits, liaison asynchrone. 1 MbaudenhoriogeexterneXon/Xoff. 
mode terminal (modem) 



Caracteristiques des ROM's 

64K octets adresses directement par le CPU 

Ces ROM's contiennent ; 

6 les routines de QuickDraw. 

6 les drivers de base. 

6 la gestion des E/S asynchrones, 

• la gestion des fichiers. simple et rapide, 

• la sortie sonore sur quatre voies. 

• de nombreux utilitaires 



Gestionnaires inclus dans la ROM 
Ressources (formats et parametres) 
Fenetres (creation et gestion) 
Editeur de texte (Justifies cadrer...) 
Dialogues, Controles {messages d'alertes ..) 
Menus (creation et gestion) 
Jeux et caracteres (Typographies) 
Presse-papiers (couper, coller, copier) 
Memoire (gestion automatique) 



le Macintosh et son imprimante : 25 OOOF 



Caracteristiques de MacWrite : 

- 2 Tabulations (decimale et normale), 

- 3 Tallies d'interligne, 

- 6 Typographies, 

- 8 Tailles de caracteres. 

- 9 Jeux de caracteres, 

- 10 Tabulations par paragraphe, 

- Cadrage a gauche, a droite et justification totale. 

- Titre et pied de page. 

- Possibility gauche et droite, en haut el en bas ajustables, 

- Taille maximale du document . 

8 pages et demie (interligne simple, 2 cm de marge) 

- Insertion de dessins dans les documents. 



Caracteristiques techniques : 


Matenel en option 


Caracteristiques 


Logicielsen option : 




Imprimanle haute resolution 


physiques : 


MacWrite 


Materiel standard 


Image Writer, 


Poids : 9 kg 


MacPaint 


4 Microprocesseur MC 68000 de Motorola (version 8 Megahertz) 


Microlecteur externe 400K. 


Largeur 24.6cm 


MacTerme. 


4 Ecran graphtque 512 x 342 haute resolution 


Clavier numerique separe 


Profondeur 27,7 cm 


MacDraw 


• Memoire centrale 128K 


Chaine de securite. 


Hauteur: 34,3cm 


MacPro]ect 


Memoire mode 64K contenant graphique/souris et systeme, 


Sac de transport. 


Puissance requise ; 60 watts 


Multiplan. 


4 Clavier AZERTY accentue + signes mathematiques et symboles speoaux 






Multichart 


4 Microlecteur de disquetle 400K 


Outils de developpement ; 




Multifile 


4 Connecteurs : 2 series RS422 remplacant les slots : 


LisaPascal. 




Multiword 


imprimante, modem.. 


Macintosh Basic 




PFS File 


4 Sortie haut-parieur 4 voies 


Macintosh Pascal 


Logiciel standard : 


PFS , Report, 


4 Connecteur microlecteur supplementaire 


Prolog 


Guides d'introduction a Macintosh 


Cx Base 200 


4 Prise chaine de securite 


Logo 


Systeme Finder (bureau) 


Lotus 12 3. 




Assembleur 68000 


Utilitaires et jeux 





OTHELLOM 



Detendez-vous, concentrez-vous, le combat risque d'etre 
rude ! Un Othello ou I'ordinateur vous tiendra la dragee 
haute. 



Vous jouez contre I'ordinateur, apres avoir choisi le niveau du jeu et vo- 
tre couleur. Les lettres, sur les lignes horizontales, sont indiquees en 
double ex DD. Par contre lorsque vous jouez, vous indiquerezD5, el 
non DD5. Vous passez avec (P) lorsque vous ne pouvez pas jouer Le 
nombre de coups joues, le temps de reflexion, sont indiques. 



A suivre : 

En raison de la longueur 
inhabituette du listing, 
nous passerons ce pro- 
gramme en deux fois. 

La Redaction 



090 RE" 

iae dot* iBj3. 1 1.-1, i .-i i 

1 10 00102013,-150,25, 13,- 



'50,-158,-7,- 



20 OftTft 25,-?, 6. 2, 13,-10,2,2 

30 OftTfl201B,- 100,30,1, - I 60, - ! 90, -9. -1 2 

40 0ftTfl3B.-3,1 ,- I ,1.-12,-1 ,-1 

50 DftTft201B,- I 30, I 5, 6,- i 30,-150,2, 1 

60 OftTP.15.2,3.2.8, 1 ,2.2 

70 PRINT"* 1 ' ;TfiBtli; I'DTMELLOn" 

80 PRlNT"BBBINTRODLi;SE LES CO0RD0NEES 
DE UOS COUP - '" 

190 P«iNTTRatl6J;C*:06J- 

200 PRlNTTOSt?) ."BBIPObR PASSER INTRODUI 
-■ 

210 PRINT" POUR CHANGER LE NjUEflU. I ' I 
ilroduir* oprrt voir, cuuplowom n2)" 

220 PRINTTftBC7);"fllBLE£ N0-R5 COnnENCENT 

230 CLR:DJnP(l0B),T!IB0 3,utB8),l[6B],SC 

IB . 1 06 ) , ft ! 38 j , C £ 30 J , D ; 30 j . C L [ BB J , R '.. 2 1 

210 ftU=B 31 

250 DIHNC2J 

280 ItnPOV.POKE IB1»^,B 

278 Htn=2iN(23=2iRtn=8^R£2)=0 
■2B0 PRIM "Bas» U0ULE2-UCUS JOUER ftUEC L 
ES BLftNCStBJ 

298 PRINTTAB{24J ;'0U LES NDIRSCrU?" UJSR 

■".■ 

300 GETft«;lFfl* = - GDTDI38B 

310 iFftt--B'"THENUSRre 
"•■■'NOlRtn?) :00=1 iJ— 



■ 
GOTO I 310 



320 lFfl«-"N-TnENUSRC82) :0»l ;0**"NOIR" !f1 
•■'BLnNCtn2r-0O=2:J-1 :BOT0134B 
330 GOTO1380 

318 PRINT ■'BNlUEPU DE OIFFICULTE: DEBUTft 
,1 ->1- 

350 PRINTTHBC22J r'nOYEN *2" 

36B PRlNTTA8(22};"EU0LUE +3" 1 -U 

SRC62) 
378 GETft:lFft»0GOTOI37B 
38B IFtft<0)-Cft>3)GOTOI37a 
398 USR(62)n»« 

188 P[S43>D^Pri5)»0P[S5;-00:P[44J-B0 
118 0E = 1 .GOSUB 2!50:DE-8 

HIPPOREBUS 



1428 1FO=1GOT01S1B 

1438 J-UflLCRIGMT*tTl«,2)]:RCI 1=1 

144B FOR!=BTOJ :>=«NDin;NEXT! 

1458 IFX<.26THENC-35.fl*-"E3' :G0T01498 

1408 IFX<.5Th£NC*46;ft«»"F4" -'GOTO! 438 

1478 lFX<.74TMENC=53:ft« = "C5" :G0T0149B 

1188 C-64:ft*»'D6" 

1190 PRINT"** id* f" JOUE EN i"i 

1500 GOT032BB 

IS1B PRINT"B" ,SPCC38Ji'B ",0*i" JOUE EN 

1528 U-B:FORS»tBTOSBSTEP2-FORT=>0Ta?:S-S' 

1538 IFPlS)-BTMENXtU)-S:CLlS)-y:U-W1 
1548 NEXTT,S:U-U-1 
1558 nuSJC'ftB" -Tl* = ' 000000' 
1560 GETfl«;lFft« = ' GOT0156B 
1578 F-flSCtfl*J-64;IFF-16TMtNPRINT' , PftSSE" 
;U5RtB2J :GOTOI95B 
1588 IFCF<1 J.(F>8)GOT01S6B 
159B PRINTft*;-'u , SRC62j 
1600 G£TI*:IFI«^"GDTO1600 
1610 IFI«=**GOTO!608 

1620 G-flSCCI«)-4B-'IFCGtl J*[G>8 ) THf NPRINT 
"S B" ; ;uSR162)=G0T0150B 
1638 Tlt-TI*;USR(62) SPRINT I * !C = I 0*G-F 
1618 IFPIOOB G0T0193B 
, 165B RESTDREiT-B 

1660 FOR 2=BTO?:REflO E 'Ul-B 

167B IFPCC T EX>1TfiEN173e 

168B U=2*EtC 

169B IFPCUj-0TnENNEXT2;(i0TUi="f0 

1788 IFPCW)-1TNENU=u>E :G0TC1'69B 

1710 F0RR-CT0lJ-EST£PE:p(RWS=-3*R+54895 

-lNTtR'18)*MBiQ=OO-205 user62) 

1728 POKES, QiFOxESM , -NEXTR- T = T'(R-C ]^E 

1738 NEXT 2 

1748 IF T=B GOTO 1330 

1758 Xca.£CJ3-XtWU-U-| 

1768 NCO]«N(a)»T»l :nC00)-N(00j-T 

1778 RtOj-RCOHUftUTI*) :R-RtDJ :G0SUBl91B 

:R(C)-R 

1788 Rt~STRt[R;0]):0»CO-1.5)*2B-H9:GOSUB 

18BB- IFN-64GDT02B6B 



?9B GOT0243B 

888 1FLEN(R«J = 3TM£NR*»"B'>R«:G0T0IB39 

8IB IFL£N(R*) a 2THENR*'"B0"--R*:GOTO1838 

B28 IFLENtfi«J = trHENR« = "88B' -R* 

830 POKE 1465.Q.P0KE 4166, 24 'PRINT" •»" i 

EFT*CR«, 2 ),"-■' ;RIGnT«tR«, 2) !-*'"! 

840 P0KE4465, t 1 ,PaKE1166,23:P«INTNC1 J 1" 

850 P0KE4465.31 :PRlNTNC23i" " 

868 N=N( 1 )f NC2) i JFUCC ) J2B4BG0SUB358B 

870 IFN=1BTHENP.U=10:GO5LiB31tB:n=2:fiETUR 

B80 ]FN=54THENn=3 ^RETURN 

B9B lFN'BtTnENFORI-l IT09B;UCI )»1 'NEXT 

988 RETURN 

91B lF(R-lNTCR'lBBj*100X60TnEt. RETURN 

928 R=RH0:RETURN 

938 PRINT"B"iSPCr.38j;' , B COUP irlPOSSIBLE 

"iO*i' REJOUE EN -";:USRC82J iTI»-T1« 

94B GOT0156B 

95B FORS=18TOBBSTEP2;FORT=0TO7:S=S-i| 

36B IFPtS]<>BTMEr'NEXTT,S tO£ 

978 RESTORE -FDR«"Bt07 'REODE 

30P [FPCS*G M>lTMEflNEXT?,r,S:GOI0243B 

998 u-2l£.s 
2808 IFP(UJ)=>0mENNExTi,T,S^GOTO243B 
2BIB IFPC141«1TME>U=U.E:G0T028BB 

'020 C=S:S-BB;r=7:?=.?;NEXT?,T,s 

!B3B l*=CMR*{C-|B*lNT(Cyiej*64J:J«=STR*t 

HTCOISJ] 
2010 PRINT B' ;SPtC3P) rBt1ENTEuR,ET "il«; 

ftLORS "iOti JOUE EN -"; 
2858 nUSIC'-EF" :TI*=T1 » -GOTO 1S6B 
2060 PR I NT -8" iSPC(3?l , nuSIC'COEFGH'ft-B" 

B7B IFNtOl-NCOOlThEN PRINT-B FORMIOrtBLE 

EGFiLlTE!- :GOTO 2IBB 
2880 IFNtO)>NC00)TMEN PRJNT'BUOUS n-flUE? 

BP.TTU PflR'iNCO), ft- :NC00)iGOT021BB 
2090 PRINT"8JE SUIS B1EN LE nElLLEURt " iN 



2150 PRINTB" :O[a>5BB00:B--50000:O'DE0J 

2160 POKE4466.3-PRINTTftBCI0) i'flA BB CC 

D EE FF GG HH' 1 

2 1 78 PR I NT TftBC 3] i " - .>:3E0O7E2EBD2E0E8D2E8 

t0a?Ee>EBO2E0E0O2EeE0O:E0EeCE " 

2198 F0RX-8TOISTEP-1 

219B PRINTTflBC7j;X;-FD FC r"j ■ U 'I 

FO FO FO FD iX 

2280 PRlNTTAet9)i , 'CBEBE88)E8EB81E0E0aiE0 

EBB 1 E0EB8 1 E0E08 1 E0E08 1 EBE8D3'' :NEXTX 

2210 PRINTTOB£9Ji"BLDE0EBD1E0E8DlE0E0D1E 

0E0u I E0E8D I E0E0O 1 EBEBD 1 E8EB00" 

2220 PRINTTflBC IB)i''ftft BB CC DD EE FF GG 



MX** 



<? 



223B POKE 4166,23:PRINT' 



2240 POKE 446S.21 :PRINT-T8 BLftNC 

j:P0KE54229,67 

2250 J*\ :C-205UFD=2THENJ = -I IC'288 

2288 F0R1=1 1T08B:1FP[IJ=BIMENNEXTI 

298 

2278 S-3«It51895-INT:I^IB3*1 18'Q-Ji 

C 

2280 POKES, QiPOKE- • 

229B IF0E»1ThENRETURN 

2380 PRlNT'B ft QUI DE JOUER 

2310 IF0=tTHENPRINT'-BLftNC.rt2 

N)":G0T0233B 

2328 PRlNT"N0IR.n2CN) ou SLftNCtBJ" 

2330 GETfti-IF ft*-" ' G0T0233B 

2318 IFlCft« = "8"]«[0=l J)tCCft«>'*N")*C0"2DJ 

G0T02138 




ou NOIR 



a suivre 



r DC ) ■ 



tuuri! 



00 PRInT-UOUS REJOUE2C0 ou n:?'* 

10 GETflt: IFft*= " G0TU21 10 

2B IFA«="0"G0T01Z28 

38 IF«*-"n ,- TMEnPRINT"D";END 

10 G0TO21 10 



Suite de la page 8 



CALL COLOR 

«U C) 

CALL COLOR 
(JC. C. CF) 

CALL DELSPRITE 

$L) 

CALL DELSPRITE 

(ALL) 

CALL DISTANCE 

(Sl ;l, n) 

CALL DISTANCE 
(SL R, C N) 
CALLGCHAR 
(R, C, N) 
CALL HCHAR 
(R, C, CC) 



CALL LOCATE 

<5L. R, C) 
CALL MAGNIFY 
(FG) 

call motion 
(J!l. vh, w) 



CALL POSITION 

(SU R. C) 

CALL SCREEN 

(CC) 

CALL SPRITE 

(SL VC, CL, R, C. CH. CC) 



CALL VCHAR 
(R. C. CC) 



Fixe la couleur pour unlutin. (Le fond est 

toujours transparent). 

Fixe la couleur dun jeu de caracteres 

(JC). (C) - couleur du dessin. (CF) - 

couleur du fond. 

Suppression de lutins (SL). 

Suppression de tous les lutins. 

Donne le carre de la distance entre 2 lu- 
tins. dans(N). 

Donne le carre de la distance entre 1 lu- 
tin et 1 point de coordonnee (R) et (C). 
Lit le caractere situe en (R). (C) et renvoi 
son code ASCII dans (N). 
Affiche un caractere au point situ6 en li- 
gne (R) et colonne (C). avec repetition 
eventuelle honzontalement. (CC) est le 
codedu caractere. 

Permet de positlonner un lutin (JJL) au 
point de coordonnee (R), (C). 
Permet de specifier la dimension des 
lutins. (FG) est le facteur de grossisse- 
ment. (1 pardefaut). 
Specifie la vitesse horizontale (VH) et la 
Vitesse verticale (W) d'un lutin (gL). Une 
vitesse negative fait reculer le lutin et 
lorsque le lutin approche du bord de 
I'ecran, il disparait pour reapparaitre a la 
position correspondante du cote oppo- 
se. 
Renvoie la position du lutin. 

Change la couleur de I'ecran et la fixe a 
la couleur (CC). 

Permet de creer un lutin (SL). (VC) est le 
codedu caractere utilise pour definirun 
lutin, (CL) sa couleur, (R), (Q la ligne et la 
colonne, (VH) et (VC) les vitesses hori- 
zontale et verticale. 
Place un caractere de code CC au point 
de coordonnees (R) et (C) et le repete 
eventuellement verticalement. ■ 



Au C0MM£N CejWENT Dli>CeNTAiJRE: 



,0° + 





L>N ROUGE OU1 VlTVERTCS D&ST^RRe^ 
GLAOtteS... , -k— d 




teS &H1FP«BS , D6i LCTTREi' 6T DBS 
ScouBi&oU-©! 




solution page 4 



PIANO 



■THB"»5^."a MERCI R BIEHTOT 1" 



D'accord, pas d'accord ? quoiqu'il en soit, ce programme 
devrait satisfaire les consommateurs (musiciens ou non) 
avertis et les pianistes en herbe. II reconstitue les accords 
d'un piano. 



StephaneVALENTE 



75 DIM HL*C5> 

80 FOKE 53281.1 GOSUB 3000 G0SUB 450S 

85 GOSUB 7030 

90 RESTORE 

95 PRINT "T PRINT"!" PPINT, PRINT PRINT 



ra *-» Brr* r» rj its ■"» rra s~* ars rrj n n " 

il!dllllllllllllll91 i!l|lli)i|' 
I3!9II jlllllll|)iiai]lllllll!l 
Diiliiiaiiiiiiinaiji]!! ji,., 



100 PRINT" 

110 PRINT" 

120 PPINT" 

130 PRINT" 

160 PRINT" 

1?0 PRINT" 

180 PRINT" 

200 PRINT" - — — ' .. 

400 REM 

410 REM ****** ENTREE DE L-flCCORD ****** 

420 PRINT TRB',200),"ENTREZ VOTRE ACCORD S.V.P ". 

440 HC*="" INPUT HC* IF PlC*="" THEN 4000 

463 READ CH*,T.u,C 

470 L"LEN(RC»J-3 

480 IF CH»=MID«(HC».4,LJ THEN 700 

500 IF CH*0"FIN" THEN GOTO 460 

520 PRINT "T',I*B<*05)."DESQLE JE H'Hl PHS CET ACCORD" 

540 PRINT TRBC240>,"<RPPUVEZ SUP UNE TOUCHE POUR CONTINUER> 

560 GET R< IF R*="" THEN 560 

580 GOTO 90 

700 PRINT'"!"," 

720 PRINT TflBC15»."»l".RC».' , l«" 

800 REM 

910 REM ***** LECTURE BE TH$C0 

820 FOR 1=1 TO LEN<Tfl») STEP 5 

?«» IF niM(Tfi$,I.-amLEFT*(flC«-3 

860 NEXT 

888 GOTO 520 

900 REM 

910 REM ***** LECTURE DE L'HCCORD ••*••• 

920 FD*=riID*(TR«,I+3,2> FD»VRL(FDf> 

925 NFf-MID*afl*,I,3J 

930 fiL«(I>»riID«CTfi*, 1+2. 1> 

940 TC*=MID*(TRt.I+(T*5>+3.2) TC-VAL'TCfi 

945 TN*-MID*(TR*,I-KT*5>,3> 

950 HL»<2)*MD8<THJ,1*IT*3>*2.1> 

960 0T*»«ID*aflf.I-KO*5>+3.2) QT-VRLCOT») 

970 flL*(3>«MID*CTR*,I*<0*3>+2.1> 

975 0N»-MID«<TR«,I*(0*5).3) 

330 Cf1*-MHl»(TR»,I + tC«5)+3.2> CM=-VRL<r:M«, 

990 RL*C4j=MID»CTR*,I+(C*5J+2,1) 

995 CNS=MIB»<TM, l+(CI5),3) 

1000 REM 

1010 REM ***** RFFICHROE DE *•***«••**• 

1020 FOR X=l TO 4 

1040 PRINT"U , \TAB<240>," " 

1068 IF RL*(X)="»" THEN 1100 

1080 PRINT TRB(80;," " 

GOTO 1120.1140,1160.1100 



4020 PRINT "3" 

4040 PPINT THB<205>. 

4060 PRINT TftB<5>."i 

4080 END 

4580 REM 

4520 REM ***** INIT TABLES *•**••* •••*• TH« « MU* 

4540 Tfi* = "DO 01D.j»h-S'E .:-,-E..j4r'l ;.5Fih ^.FniiflrSULW'-il^LK lSLAHir 

4586 TR» = Tft*+"SI 12DO 13D04I4RE 15RE41SMI 1 7FR l8FB819S0L;>'-;nil2 1 " 

4620 TR*=Tft**"LR 22LHH2SSI 24D0 23D0826RE 27PE«2*MI 29" 

4669 REM 

4680 PEM =====*=====..=>=====, «*==.===== 

4700 riU»»-e814709e2ia9159ie«9ie2e51I1141Z032122161315614ie7I5870" 

47^0 riUf=HU*+" 169471 70371804219063^ Il-X^I 1 54 ,:■ 2272406325 1 7727Q56" 

4740 I1U*=11U»+ ■' 2&21 430 1 4 1 3209434075 3608536 1 £6402004 sp<^ " 

4800 RETURN 

5900 REM 

5010 REM ***** TRFLEHUX D'ACCORDS ****** 

5020 DRTH MftJ,4,7.12.MIN.3.7. 12.7 4.7. 10 

5040 DHTH MIN7.3.7. 10,Mfij7,4.7.11.64.9. 12.MIN6, j,^ i: 

5060 DRTR 5*. 4. 8. 12, 7-. 3, 6. 9. 7*5, 4. 8. 10, 7-5. 4. 6. 10 

5050 URTR FIN. 8.0,0 

7000 REM 

7010 REM ***** MODE D'EMPLOI *********** 

7020 PRINT "-J".TflB<245>." BESIRE2 VOUS DEa INSTRUCTIONS'" 

7040 GET R« IF ft* ="" THEN 7040 

7068 IF R*O"0 H THEN RETURN 

7120 FFINT ".T PRINT PRINT PRINT 

7140 PR1NT"3 CE PPUORRMME RFFKHE '.£T JOUE 

7160 PRINT PRINT " - MfiJEUP >MI 



LES RCCOPDS SUIVflHTS ' 



— -Mill" 

— --MRJ7" 
>MIN7" 

— >6" 

-I'MiHe" 



•*•**••* 

TMEH 300 



DANS LR TfiBLE 



7180 PRINT 

7200 PRINT 

7220 PRINT 

7240 PRINT 

7260 PRINT 

7280 PRINT 

7300 PRINT 

732$ PRINT 

7340 PRINT 

7360 PRINT 

7388 PRINT TRB'8I 

7400 GET RJ IF R* 

7420 RETURN 

8000 REM"* 

8010 REM ••** COMMENTFIIRES 

8020 pcw* , 

3038 REM 

8040 REH CE PROGRAMME JOUE ET DESSINE 

5066 REM PES ACCORDS DE PJRNG. 

S080 REM POUR L'UTILISEP IL SUFFIT DE 

8100 REM TAPER LE NuM DE L ACCORD SOUS 

0120 REH LA FORME : 

8140 REM N0TEC3 LETTRES;ACCORD 
EX: DO MR.J? 
LE PROGRAMME HE COtfREHD CUE 
LES (t .IL FAUT DONC FAIPE LA 
TRANSPOSITION DIESE/BEMOL 



INEUft 

- SEPTIEME 

- MAJEUR SEPTIEME 

- MlHEUft SEPTIEME 

- SIXIEME 

- MINEUR SIXIEME 

- OUINTE AUGMENTEE — >5+" 

- SEPT. DIMINUEE >7-" 

SEPT. OUINTE AUG. >7+5" 

SEPT. OUINTE DIM. >?-5" 

<APPUVER POUR CONTINUERV 
THEN 7400 



• **• 



***** 



♦**♦**♦**** 



1120 PRINT TAB(FD+1> 
1 140 PRINT TAB'.TC+1> 
1160 PRINT TABtOTl-I) 



"•'■; -K-I GOSUB 2500 GOTO 1200 
'■•", K-I-KTA3; GOSUB 2500GOTO 1290 
■■t". K = I*<0*5) GOSUB 2500 GOTO 1200 
"•". K-I+CC85) OOSUS 2500 



ilB© PFINT TAB(CM*1 

1200 NtXT 

1220 PRINT "WW" PRINT TABOJ.NF*. " ".TN*," 

2009 GET Rl IF R*-"» THEN 2000 

2020 GOTO 90 

2500 REM ***** MUSIQUE « ' **•**••••••••* 

2520 MI*"MID«(MU«.K.2) 

2540 M2*=MID»tMU*.K+2,3> 

2560 M1=VAL<M1»> M2«VHL<M2») 

2580 POKE 0.6S-P0KE A, 9 

2600 FOR '»l TO 50 POKE H.Ml POKE B.M2NEXT 

2620 POKE H.0 POKE B.0-POKE 00 

2640 RETURN 

3000 REM 

3010 REM ***** 

3020 V-54296 

3068 0=54276 

3080 S=54278 

3100 H=S4277 

3120 H=54273 

3140 B=54272 

3160 HP=54275 

3180 BP=54274 

^200 POKE HP. 120 POKE BP, 120 

3220 POKE V-15 

3240 RETURN 

4000 REM 

4010 REM ***** FIN DIJ PROGRAMME 



INIT. NOTES *•*<« 

REM VOLUME 

REM FORME DE L'ONDE 

REM SUSTAIN 

REM ATTAOUE 

REM HTE FREQUENCE 

REM BASSE FREQUENCE 

REM PULSATION HF 

REM PULS. BASSE 




8150 REM 
8155 REM 
8160 REM 
8170 REM 
8175 REM 
8180 REM **** 
8200 REM" 
8210 REM" 
8220 REM" 
8230 REM" 
8240 REM" 
3250 REM" 
8260 REM" 
8270 REM" 
8280 REM" 
S290 REM" 
8308 REM" 
8310 REM" 
8328 REM" 
8330 REM" 
8340 REM" 
Sd'jQ REM" 
8360 REM" 
8370 RLM" 
3388 RH1" 

3382 REM" 

8383 REM" 

8384 REM" 
8 385 REM" 
8386 REM" 
8390 REM" 
S400 REM" 
8410 REM" 
8420 REM" 
8438 REM" 
8440 REM" 
8450 REM" 
8460 REM" 
3470 REM" 
3408 RBI' 
34*B REH" 
8500 REM" 
8510 REM" 
8528 REM" 
8530 REM" 
3540 REM" 
8530 REM" 
3560 REM" 
8570 REM" 
8580 REM" 
3590 REM" 
8600 REM" 
8610 REM" 
3620 REM" 



ORGAN I GRAMME 



INITIALISATIONS I 



*0 



^o° 



o* e 



6* 



ACCORD COMPLET 



ET ON RfcRHFl 




Su(fe de la page 5 



11800 PET'JPH 

15900 »E« PRESENTATION 

iMZ8 HCOLOP - 3 HPLOT 3.83 TO 7.71 

TO 10.83 TO 7.3,71 TO 8S . 78 TO I3S-' 
TO 244.71 TO 249.72 TO £50.73 TO ^0 : 
TO 278.83 TO 273 88 TO £76.94 r.j 273 : 
TO 270-190 TO £-J9.1«3 TO 238.108 

TO 240.110 

15039 HPLOT £40 110 TO «0.110 TO lt>! 
TO 7.104 TO 3-32 TO 3.92 TO 3-83 

TO 5.88 

15040 HPLOT 13.84 TO 18-65 TO 25 ■ -;5 
. TO 31.88 

15958 HPLOT 188.70 TO U0.3* TO Ifil.' 
T8 188-50 TO 189.50 TO 190.31 TO 191 ■' 
TO 191. 79 
13068 HPLOT 13,95 TO 18.115 TO 25 11 

TO 31.188 
15180 HTftB 29 WTAI 12 PPINT 'H£**~ 
-.5990 RETURN 

19?99 REM IHITIULISHTIONS 
28888 FOP J - I TO 28 FOP I » t 

TO 48 Ti I, J> » 8 NEXT [. J 
29198 PEM [LES 



20739 IF IXCX J>,CVCJ>) : 8 THEM 29" 

10 

£8888 r. CX< J ■■ ■: ■■ . ■ ■ ■ 3 next 
28839 PEM CORUETTES 

28909 CH * Em - Cm FOP J = 1 TO > 

20939 GXi J) ■ IMT I RND ' I ' 48 
■• 1 GY(J) - ENT < RND i.l :■ * L^a- 



21230 i 



■ ■ 4 NEXT 



■ * 49 > 



INT ( 



RHD 



■ * 28 > 



THEtl . 



21268 [F T< 

21278 nxC.YC I = 5 

21275 Pi}»:E 2T2. 188 

POKE 923-2 POKE 

POKE 931-0 PWZ 93, 

POKE 934.32 POKE 935. i 
POKE 937.63 POKE 938.32 
POKE 949.45 POKE 941.21 
POKE 943.39 FOKE 944,7 POKE 945 9 
21280 AIR * 1000 T . J« M . J PU 

- 6099 



T.9 



POKE 2 3 3. 3 

29.8" POKE 938.6 

POKE 933.9 
POKE ?:•-; I 

POKE 939.;. 

POKE 942,5- 



■ CI 



i 1 



28139 






21283 F» . ■ M H-E E S-E 3 3-0 N-0" D* 


20200 






■ "TORP ftUfiHTTORP ARR hR.BRE HEL t :0'J"EF 


■ 2 NEXT 




NalLGENEPOTEURBOLLHST? SONAR PERI8C 


20210 






OPE MISSILES PEMCTEUfi " 


29229 


FOP I * 1 TO INT i RND 


( t 


21299 INVERSE HCP 




3> - 1 




22900 FOP J • I TO 28 FOR I - 1 


20230 




TO 48 HTftB I UTftB J PPIHT 


























£0388 






22085 HTftB I VTftB 23 PRINT "OK ?■ 




FOR ; - I TO I 

'< » INT • PND < 1 - t 49 










CALL 778 HOPMAL CR GOSUB 1909 






COStJE 500 C0SU8 £099 RETURN 


20309 






23899 REM F[N OU JEU 


29530 








E8C98 






FOP G * 1 TO 39 NEXT POKE 4?£"7 8 


20':39 






FOR 5 - l TO 30 NEXT NEXT I 


28788 






TEXT 


20710 






23010 [FM>« THEH 23030 








23920 HTftB I l.'TftB 1 PPIHT " IL PESTE 


♦ 






Bfi- BftTEHUX ENHEMIS- 



23939 A4C13 * -DEGRADE ET SAVE DE3 ChORE 
-;- At. 2/ = "RAMEHE AU GRADE DE QWHRTIER- 
MftlTRE" «('!) « "REMOOYE EN MISSIOH -."E: 

LE MEME GRADE" 
23849 A*<4> = "HOMME CAPITAINE OE FRESBT 
E" AH;> - "HOMME CAPITAIHE DE UAISSEAU" 

A«6) - "NOMME COHTRE-AKIRftL" 
£3045 ft*D » "HOMME AMIPAL DE LA FLOTTE 

23830 B*. 1 ■> - "DEPLORABLE" 1*2 J 

- "MlHfiBLE" B*< 3:. - -MOYEHNE" -IK*. 1 

- -ASSE2 BONHE" B*'5'' - "EOHHE" El 6, 
- -REMAROUABLE" 

23035 EH7> - "ADMIRABLE" 
23068 HTAB I UTAE 5 PRIHT "UOTP.E SHOP 
E OE "S- PEPRESENTE" 

23970 PRIHT PRIHT "UHE "B*- IHT (% 
.- lO :■ ,■ CCA * :h ■ ■ - l - PERFORMANCE 

£3930 PPIHT : PRIHT "EN lONSEOUEHCE, JO 

US ETES " 

23090 PRINT Af. IHT (tS <• 10) ■ CA 

+ CH>> ♦ 1 > 
£3100 PPINT PPINT 

£3110 PRIHT "V0JLEZ-V3US =EP-!R£ UHE a.. 
TRE PARTIE "" GET Rf PRINT SI 

23120 IF CI "0- wND PI "N" 

THEH 23110 
23138 IF R* = -ij" THEN PUN 
23140 HOME HTfaE 19 UTA1 10 FBIHT "- 

U REUOIR, "HI 
23158 EHB 

5O909 data 15 -: i*; -: :i .? i*-».i5 9 18 
9 17.9 18,9. 13 10 1*19 15 18 16 -*.0 2 

'.3 11 14. U 
•9905 D-t„ u ;: -., 12 14,13 t i H ■' ■ 
4.16.U 17.14 ifi 14 t8 13-19 \2 £8 1' 
59019 CAT- 8-1 I -1 1-4 1 t-0.1 -1 1 
-1.8.-1.-1 

59029 DATA 
I. 240. ?.202 
30030 DAT* 



71 *8.t92 



136-208.5 29-; 



3099- 98 90 08 88 94 00 00 80 
3098- 00 80 00 08 32 26 7F 3E 
3018- 7F 7F 7F 7F 7F 7F 7F 7F 



S818- 


08 


09 


...... 


00 


44 


82 


.-.- 


7C 


9820- 


08 


.,-■ 


00 


08 




■■- 




3F 


8028- 


88 


08 


-■,- 


34 


7F 


88 


44 


90 


•;8T0- 


88 


/A 




3F 




■M 


40 




3838- 


88 


2? 




4>: 


7F 


7F 


'F 




3848- 


it 


■- 1 


61 




7F 


7F 


7F 


7F 


3048- 


■■.'-: 


18 


:-.- 


■-,-■ 


7F 


7F 


7F 


7F 


3850- 


88 


40 


60 


*8 


7F 


7F 


7F 




S0S8- 


--■■: 


9 ■ 


3F 


7F 


'■ 


.--■ 


7F 


7F 


9868- 


18 


88 


78 


" 


-f 


7F 


7F 


7F 


3868- 


08 


9? 


01 


01 


7F 


3F 


IF 


4F 


-:■?-■)- 


09 


.::■ 


.10 


.1.1 


S4 


7F 




?f 


1878- 


88 


18 




HI 


7F 


7" 


7F 




S088- 


88 


- 1 -' 


48 


60 


71 


7F 


7F 


7F 


J888- 


08 


88 


00 


01 


9F 


7F 


7F 




8898- 


H 


.„. 


00 


.!■■■ 


96 


7F 


TF 


IF 


30J8- 


88 


00 


.i.i 


00 


00 


8R 






S9A9- 


08 


08 


00 


00 


00 


fi? 






I8A8- 


00 


•8 


90 


00 


99 


18 


7F 


?? 


S8E9- 


00 


.,.■ 


00 


00 


,'.■ 


80 


04 




3888- 


90 


... 


69 


79 






7F 




88C8- 


■'■: 


88 


V. 


3F 


,-- 


7F 


7F 


?f 


S0C8- 


■*-■ 


88 


03 


0)5 


98 


7F 


7F 


7F 


99D0- 


88 


88 


.!.' 


?i\ 


F>4 


7F 


7F 




SS88- 


88 


88 


80 


00 


44 


7f 


7F 




30E9- 


01 


01 


91 


01 


61 


7F 


7F 




98E8- 


.1.1 


88 


01 


91 


7F 


3F 




4f 


30F9- 


00 


99 


00 


80 


30 


7F 


■?? 


7F 


■;--■:- 


08 


H 


88 


41 


47 


4F 






- : •>}- 


88 


08 


as 


90 


4d 


?4 


'■ 


7F 


a 1 98- 


00 


90 


00 


18 


10 


10 


7F 




3110- 


08 


00 


00 


98 


04 


7F 


3F 


IF 


3118- 


88 


84 


B 


01 


7F 


IF 


IF 


4F 


8128- 


.)-: 


18 














Sl£8- 


99 


08 


1 1 


0A 


04 


7F 




IF 


3138- 


•>; 


IS 


24 


44 


00 


?>'■ 


7F 


7F 


B138- 


ii. 


81 


: ■■ 


?f. 


«9 


7F 




7F 


-: i -9- 


i-: 


68 


79 


34 


03 


7F 


7F 


7F 


(148- 


03 


48 


01 


97 


88 


7F 


7F 




8138- 


, T 9 




70 




?8 


7F 






S158- 


01 


99 


00 


01 


80 


»F 


TF 


7F 


8148- 


M 


48 


4m 




.1- 


10 


7F 




9168- 


88 


00 


0! 


0? 


87 


■■}■ 






-: 1 78- 


Bfl 


Bfl 




04 


0A 


0? 




?F 


31 "-:- 


99 


88 


49 


99 


48 


88 




7F 


8188- 


89 


88 


07 


02 


07 


■V 


3F 




■: 188- 


49 


36 


08 


9>3 


00 


04 


09 


80 



VlffV Suite de la page 9 
Derniere minute 

Vjfj-Nathan sort quatre micro- 
didacts pour ZX Spectrum 16 ou 
48K : «Croque-nombres» (a partir 
de 6 ans) pour I'apprentissage 
des 4 operations avec une micro- 
puce et un serpen) affame "La 
course du robot" (2 a 9 ans). 
"Combien font ?" (4 a 8 ans). et 
des "Des en chute libre" (4 a 8 
ans). Le Spectrum en avail bien 
besoin ! ■■ 

Aftenf/on ; certains logiciels ne se- 
ront pas dispontbles avant mi-le- 
vrier. courant mars. 
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Systeme personnel HEWLETT-PACKARD 41 

Prix TTC 

HP 41C + module quadruple HP 8? 1 70 Promotion 

Lecteurs de carte HP 82104 

Imprimante HP 82143 

Lertetir de cassettes dig it ales 

Module HP ft. HP 82160 

Module X fonctions HP 82 tBO Promotion 

Module mathematiques 3041-1^010 

BattwieHP41HP82l20 

Owgeui HP4IHP82066B 

Livrets d'jpplication |28 litres) 

Jeu de 4 grilles d assignation HP 82152 

Clavier a membrane HP 82200 



1 .500 F 


n 


1650F 


1 


3 350F 


1 


4 250F 




1 060 F 




500 F 


u 


310F 


n 



310F 


n 


J70F 


! 


140 F 




135F 


1 


1 15 F 




?35F 


U 



Produrts compatibles HP 41 

Port expander 8 entrees et sorties 

Table tracante 4 couleuts tandy interface HP IL 

Livres 

Programme HP 41 
AufonddelaHP4l 

Autour de la boucle 

Calculator tips and routines |en anglais) 
The HP IL system: an introductory Guide 
to the Hewlett Packard interface loop 



CANON X 07 

Canon X 07 8k 

Canon X 07 + module XR 100 

Imprimante thermique X 711 

Imprimante/ (able tracante X 710 

Coupleur optique X 721 

Convertisseur de niveaux X 722 

Carte memoire 4k XM 100 

Cable cassette XC 910 

Cable Centronics XC 930 

Cable de liaison pour X 722 XC 940 

Logiciels f ichiers 

Adaptateur secteur pour X 07 AD 411 



dlculatnces TEXAS INSTRUMENTS 

Tl 30 LCD 
TI35 
Tl 5511 

Tl 57 diodes 

Tl 57 cristaux liquides 
PC 100C 
Modules Tl 58/S9 

leu* [manueJ en anglais] 

5e< unOes [manuel en anglais) 

Elei [(unique 

Mathemaiiques 

RPN [manuel en anglais) 

Surveying (manuel en anglais) 



I250F □ 
5.900 F'Di 



102 F 
I00F 
I00F 


□ 

□ 

□ 


184 F 


D 


295 F 


□ 



2.I70F 


! 1 


2.950 F 


1 


795 F 


1 


1 650 r 


1 1 


480 F 


1 


600 F 


1 


389 F 




59 F 




268 F 


I ] 



I09F 


n 


140F 


1 


260 F 




240 F 


1 1 


740 r 


1 


F750F 


iJ 


285 F 


n 


285 i 




285 F 




285 F 




285 F 




285 F 


u 




A 






//y> 



LOGICIELS CIEL BLEU POLJR APPLE SUR DISQUETTES 



TO 7 

Prix TTC 

2.480 F n 
6001 

800 F □ 
750 F Q 
850 F LI 

600 f j a 

480 F a 
2.500 F LI 

290 F " 
2 500 1 

290 F 

3.800 F 

2.600 F 

75 F 



MATERIELS THOMSON 

Unite centrale 

Codeur SECAM 

Lecteur enregistreur 

Extension memoire 16k 

Contruleur com. 

Son et jeux 

Memo Basic 

Imprimante thermique 

Cordon imprimante thermique 

Imprimante Impact 

Cordon imprimante Impact 

Contr lect. disquette 

Lea. disquette 

Rouleau papier thermique 

Logiciels Answare 
Budqet familial 
Carnet d'<*dr «sms 

Gerez votre bibliotheque 

Gerez vos fldies 

Livres 

Initiation au Basic T07 

Manuel de reference (SavemaJ 

Basic DOS du T07 

Un ordlnateur en fete 

LJn ordlnateur a la maison 

Un ordmateur et des jeux 



Logiciels vlF! Nathan pour T07 Thomson 

Acomium 

Echo 

Survivor 

Logicod 

Gemini 

Crypto 

Motus 

Tridi 444 

Trap 

Pictor 

Melodia 

Ilium 

Melimemot 

Casino 

Quest (rom) 

Cassette quest, histmre geo 

Casette quest sports 

Casette quest, sciences et decouvertes 

Cocktail 1 

Cocktail 2 

Cocktail 3 

Sauterelle 

Basic vol I 

Basic vol 2 

Comp. et mult 

Systeme metrique 

Carre magique 

L'horloge 

Encadrement 

Carotte malicieuse 

Dietetrque 

Allemand vol. 1 

Allemand vol 2 

Mots croises vol 1 

Mots croises vol 2 

Mots en fleurs 

Signes dans I'espace 

Ronde des chiff res 

Carte de France 

Noix de coco 

Ecole des maths vol. 1 

Ecole des maths vol 2 



Le Fi.i-.ii expnque 
An tipiit (iu Basic 

■ 
Opet.iuonapocalypsf 
■. 'Ti|iur 
■ ■ marcH 

Les campagnes njpoles 

■ !', Cif.il Spew 
.'■■■. bnetge 

Les balisseuti (J empire 

■ ■ 

■ 
Lf l rr.i -:n:t'r 

■ 

Cnmroleuf .irnen 

Fractions 
Dei HMUs 
Amhmettque 

Savon compter 

■ ■ . ■ 

Clwche* Ij differ er>i.e 
Auqmenie/ voire vccabulaire I 
Augmented votre vcabulaire II 
Suite de nombrn 
Concenuauon 



Dueling elegit |vt| 
David'v midfiH ' " 
Labyririlltf |vf] 
Apple panic |vt[ 

Geneudrift (vfl 
Space quar ks fvf ) 
Stat bla/er |vt) 

■■ . 
Bed aletl (vf) 



Apple panK 

■ 

, iion (M 

j ,,:...■,..:.,. : ■ ■ .-. 

Snac k alt, irk 
Swashbuckler 

Canyon cftrnbet 

■ ■ .■ : ■ 
Ternpli-nl Ap-.h.n 

Lazei vik 
Zenith 

MaLlltVIMli 

De, id line 

Zorkl 
Zorfcl 
2ork III 
Siac cross 

Oule Wiillrnvh-iri 
Mlnei 2049e< 

aii ri.iti. i 



Kmgtii ■ A « : i . i ■ ■ ■ "xh 

'j.lklMIt .lll.tlk 

AZ-FS1 flight simulator 
1'iriti.iri f r 1 1 h j f i ; mnU ■"! 

snoupei croopi ' 

, . ■ 

Global program In ie edit 
(GPU) 

me mash ol iheson 

. ■ 




LOGICIELS VIFI POUR APPLE II ET He 

Jeux 



•Je command e les loyiuels. on jirogiciels si 

TOfAL TTC Partieipanon a 

CHoint monrtaleCTiem 

■ 
qui ne se/M eneaisse par la RAC qu aprts (expedition 



Bon de commande. Tarifs au 15/1/1984 
- - Dans la limrte des stocks disponibles . . 



i frais de port + 30 F Ecole 























Code postal 


Ville 





L. 



X. 



Le 'juiTiii'i ik'setoilei 
le temple d'Apshai 
i i ruee ■- en * oi 

I'-, rlbuil 

Ctique. craque. (toque 

L« vautours 
Le voieut 
retc de cochon 
Ricochet 
Daedalus 

Utilrtaires et educatifs 



Gamme Texas-Instruments : 

Arrivee de logiciels en fevrier 1984. consoles a nouveau 
disponibles debut mars 1984 ainsi que de nouveaux 

nm iiluii". 



3BS.00F 


11 


J8S.00F 


11 


385.00 F 


□ 


350,00 F 


□ 


325.00 F 


: i 


340.00 F 


□ 


325,00 F 


1 1 


31 0.00 F 


1 1 


295.00 r 


□ 


295.00 F 


n 


295.00 F 


n 


230,00 F 


i ' 


340.00 F 




2I9S.0OF 




■ 












■ 





